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flel heeft langer gcduuid (Jan de bedoeling was, 
maar in dil imnmei slaan de uitslagcn van dc dric 
program mcerwedstrij den. Op zalerdag 16 januari 
werden we bijzonder gastvrij onlvangen ten huize 
Data Skip, waar de pninutre iking plaaisvond. 
Lees er alles over op blad/.ijde 12. 

De enquele zil in de molen. We haddon niel op zfi'a 
berg aniwoordcn gerekend ... lir lekent rich 
stilaan een profiel at van dc gemiddcldc Sinclair 
gehruikcr. We probercn gaandeweg de inhoud van d 
gids aan de wenscn aan le passes, waar dat voor 
ons mogelijk is, en waar dit met ons idee over de 
inhoud van lie! tijdschrift overeenkoml : we 7.ijn 
niet van plan een speilet jes- lijdsclirifi le worden, 
orodat er op dat vlak at andere tijdschriflen zijn. 

Velen vroegen om Tasword-artikelen. In dit numrae 
worden /.c uitgebreid bediend : A. Schoneveld maak 
van Tasword II een manusje- van-alles. 

Net spijt ons (alwecr) voor de Ql.-ers, ma ar ook 
deze kecr hebben we bij het ler perse gaan, nog 
gcen letter kopij voor de OX- gids gczicn. We 
treffen rnaatregelen om dit tc vcroiijden. Bclofte 
maakt schuld, en wij hebben een QL-gids beloofd. 
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GGSV Databank 

Al eerder hcbben we melding 
gcmaakl van ten Databank op 
iniliatief van de DUC/Impuls. 

Inmiddels is dczc databank 
actief en sinds zijn beslaan 
(medio august us) a I wee r 
wd en uitgebrcid. 



lie ii 



COEliMI 



Dczc databank is opgezel door 
Sinclair enlhousiaslcn maar 
dal wil niet zeggen dat U er 
allcen maar Sinclair 



-typen 

Ook de Sinclair Gids en 
uitgeverij Terminal Soft 
Publicaties zullen in de» 
databank aanwezig '.i]"n. 
We hebben 200 pagina' 
beschikking en daar 7X 
o.a. een flinkc brok 
TVksoflwarc inzettcn. 






Hct best is COMNET 
verge lijkbaar met een grali: 
huis-aan-huis blad. De ove 
eenkomst is dal de lezer 
(gebruiker) gratis de infor- 
matie tot zich kan nemen e 
dat dc krant (COMNET) 
betaald wordt door de advc 
;ntieopbrcngst (Informatie 



Levi 



We hopen dat we velc lexers 
mogen begroeten in deze 
databank. 



Voor inlichlingen : 

01819- 1689S (18 tot 20 uur) 



Tel Databank:01883- 12475 



Comnet BV 

Gratis Tclekranl voor iedcre 
compuleraar met een modem. 
Comnet is al een lijdje opera- 
lionccl en tijdens afgclopcn 
HCC-dagcn in Utrecht vond dc 
officiele prcsenlalie aan hel 
grate publiek plaats. In 



hallen stonden vele infoi 
tic-terminals opgesteld, 
waarmec men alie beursi 
matie direct ton opvragcn. 
Velc duizenden hubben hit 
ook dankbaar gebruik van 



for- 



ger 



ukt 



COMNET is geen databank 
zoals bijv. Viditel, waarvoor 
men abonoementsgeld mocl 
bctalen; COMNET is GRATIS. 



rs). 



COMNET kenl op dit moment 
zo'n 7000 gebruikcrs en enige 
tientallen Informatie- 
l^vcranciers. Men heeft de 
beschikking over 18 telefoon- 
lijnen en de installalie kan 
snel worden uitgebrcid tot 128 
leleioonlijnen. U zull dus 
niet vaak voor 'gesloten deur' 



COMNET is een iniliatief 
van Micro Technology de modem 
fabrikant voor MSX en PC. 
MT hecfl inmiddels veel erya- 
ring upgedaan met communica- 
tiesystemen en al die ervaring 
komt hel COMNET duidelijk 
ten gocde. Hel is duidelijk 
upgczcl en voor een ieder 
begrijpelijk. 

Ook voor Sinclair gebruikcrs 
is dit sysleem een idcaal mid- 
del om onderling le coromunice- 

Als gebruiker kun je naar elke 
anderc gebruiker informalie 
Sluren, ook teleshopping is 
een mogelijkheid. Zo kun je 
straks bijv. bestellingen voor 
de Sinclair Gids via Comncl 
plaalsen. Ook zal er gewerkl 
worden aan tclesoflware nit de 
Sinclair Gids... 

Via COMNET kan men ook 

bescbikken over een zgn. 
Chatline voor hel confercren 
of vergaderen per computer. 

De mogclijkheden zijn legio en 
velc Sinclair gebruikers 
zullen zich graag aanmelden 
voor COMNET. 



Vraag inlichlingen: 
COMNET BV 
Wetcringsingel 6-14 
3353 GZ Fapendrechl 
Tel: 078-411010 

Of nog bcter log direct in op 
een van de volgende nummers t 
kijk alvasl eens in hel 
gaslcnbestand rond en geef U 
mclccn op als Icier (of is het 
kijker?). DOEN....!!! 



Nieuwe budget labels 

Budgel-soflware is een slcrk 
grociende mark! in Engeland, 

waar loch de mccste Spectrum 
software vandaan komt. 
Een nieuw label is Fowerplay. 
Dit is een samenwerkingsverband 
van Smart Egg Software en 
Maynard International. 

Hel nieuwe label is beslcmd 
voor de 8-bits micros. Vee! va- 
de software van Powerplay It _^ 
bestaan uit zgn. 'Double 
Releases', dus twee spelcn op 1 
cassette. Dc prijs voor 
Powerplay-software is £ 2.99 
per cassette. 

Voor de Spectrum 48/128Kt2 

verschenen inmiddels al enkele 

cassettes: 

Magical Mystery -A Harvesting 

Moon samen met Faerie. 



IIRH 5 



met Cuddle 5. 



Volgens Nigel Brooks van Smart 
Egg Software zal de 
jaarproductie van Powerplay 



n 24 c 



s zi)n. 



Voor Informalie: 

Powerplay 

11A College Terrace 

Brighton IJN2 2EE 

U.K. 



Computerverkopen 



Met bckcnde budgetlabel van 
Mastertrnnic MAD word! na een 
rustperiode weer nicuw leven 
iiu-rlil.-ixiMi. De reeks gaal nu 
MAD X hclen en dc prijzen als 
vanouds: I 2.99. 
Ook mastcrtronic slaat de 
nieuwc weg in van twee spclen 
pei budget-cassette. Meet spe] 
vuur helzclfde geld. 
De eerste tilel is Energy 
Warrior samen mel Molecule Man 



THE POWER HOUSE 

Ook alweer een budget label 
brengt een bele scric nieuwe 
software voor f 1.99, 
Met belreft de volgende lilels: 

.X's Quest Tor Tires 
Powerama 

Darn busters 

De/c litels zullen er /.eker 

voor de Spectrum koine n. 

De planncn van Power House zijn 

grootsi Men wil binnen 10 

maaoden 100 titels op de mark! 

hebben. 

We houden je op de boogte. 



, lingel. 



per 



i VIMi. 



Omd.it in Nedcrland geen 
hetrouwbare gegevens zijn te 
verkrijgen over de verkopen v. 
homecomputcrs, geven we maa 

Tenslotte is dc homccompuler 
I'.nvrland hd mo^ci verbreid 



leiiMoue is ae 
Engcland bet i 



Uit dit overzichl blijki wel 
dat de Spectrum nog steeds de 
mecsl verkocblc homccompuler 



aan de overkant van de plas. 

Machines die daar nog verkochl 
worden zoals Electron en 
Commodore 16 zie je hicr al 

vroege dood gestorven. 

Afgaande op bet feil dat dc 
Spectrum nog steeds een goed 
verkopende homccompuler is, 
hoeven wij als Speclrumgebrui- 
bcrs oos voorlopig nog geen 
7nrp.cn te ma ken over de 
vcrkrijgbaarbeid van Software, 
k.nndapparaluur, Rescrveondcr - 

Voorlopig zitten we beter dan 
bijv. onze MSX vrienden, zowel 
in Engeland als ook bier te 



Gemiddelde Gemiddelde 

over laatste over laaLste 
maand. kwartaal 



SPECTRUM 47.3 X 

COMMODORE 64 23.9 T. 

AMSTKAD 14. 3 I 

BBC 2.7 X 

ATARI ST 3.2 X 

COMMODORE 16 2.1 1 

ELECTRON 2.2 I 

ATARI XLfXE 1.5 X 

MSX 0.8 X 



2.9 I 
2.4 I 
2.7 Z 
1.7 X 
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Nogmaals een enquete ? 



Jeux fran?ais 

Dal het oiet alleeo de Engclse 
Softwarchuizen zijn, die 

cestcrstukjes kunncn afleveren 
_ewijsl keer op keer het Franse 
Softwarcbedrijf Infogrames. 
Nieuw van Infogrames is 
'Sidewalk' Ecn grafisch 
rollenspcl. In 't kort: 
Je motorfiets is geslolen en je 
moet de lossc onderdelen weer 
bij etkaar zoeken om de 
motorfiets weer te kunncn 

De stukkeu liggen her en dcr 
versprcid door dc slad. 
Al zoekende ontmocl je 
natuurlijk de nudige tegensland 
en soms krijg je zelfs wal bulp 
Ecn scherpzinnig spcurdcr zal 
die hutp kunnen ontdekken. 
Al met al een zeer goed te 
spelen spel. Infogrames stelt 
een deel van de opbrengst ter 
beschikking van The Band Aid 
Trust voor steun aan hongcrend 
Afrika. 
Prijs I 9.95 



Om 



ephu 



olledig 



laken willen wij U nog 
wat extra vragen slelien over 

Old S^cie' 1611 aa " lien Uan " Good 
Hopelijk kunt U de plaiinen nog 
eeti extra zet in de goede 
nchting geven mel de zaken die 
U aandraagt. 

Hoeveel RAM zou Uw Speccie 

moeten hebben ? 

Toegang tot de Extra RAM d.m.v 

v:in ceil Mlmuqiv Mapper. 

Welke BASIC standaard inbouw 

Hoe moet de Compatibiliteil 

geregeld zijn ? 

Moet een Diskdrive- Interface 

standaard zijn ingebouwd ' 

Moet een Diskdrive standaard 

zijn ingebouwd 7 

Moet er een Printer Interface 

standard iugebouwd worden 7 

7.o jn: VV'e Ik type 7 

(RS232 of Centronics 7) 

MnrtL-n de geluidsvoonieningen 

Moet er een echte MlDI-poort 
worden ingebouwd ? 



Moet het loetsenbord verbeterd 
worden 7 

Zo ja: heeft U een sucgestie 7 
Moet de voeding worden 
ingebouwd of volstaat een losse 

snapshot -mogelijkheid worden 
ingebouwd ? 

Moeten een schakelaar en een 
reset-knop standaard zijn 7 
Moeten er funktietoetsen 
toegevoegd worden 7 
Muisintei fate siandaard ? 
Moeten de Single Key aanslagen 
voor Commando's ge hand has fri 
blijven 7 

Als U Uw eisen nu eens overziet 
wat zou U dan aan zo'n 
'Speccie' willen uiigeveo 7 
Wij zijn benieuwd naar Uw 
readies. Wij zullen alle 
ontvangen informatie doorspelen 

bedrijf. dat oniwille van dit 
project vooriopig nog geheim 
wensl te blijven, Hetgeen we 
zullen respecteren. 
Uw opmerkingen kunneu wellicht 
een positieve bijdrage zijn in 
deze ontwikkeling. 



wi»i mm 



MAS KEN IN PUT 

Maskeninpul' wil zoveel leggen 
als geformateerde invoer van 
gegevens. 

Mel dil programma kunt U lovcn 
op het scherm realiseren. 
Bovendien kunt U verschillende 
velden aangeven. waar een bc- 
paalde invoer moet plaatsvin- 



I [.rogr 



e je 



Dil "s. 
Duitsland v 

M.b.v. 'Maskeninpul' creeerl U 
Uw eigen schermlayout voor bv, 
een eigen database- systeem. 
Maskeninpul' is gebeel in 
machinetaal geschreven en be- 
slaat zo'n 430 bytes. Op de 
cassette slaan 3 versies. Een 
'normnle' versie voor gcbruik 
met Spectrum Basic en twee 
vetsies voor Beta Basic (resp. 
voor versie 1.8 en versie 3.0 
van Beta Basic). Daarnaast is 
ook nog een tasword- file met 
een duitse karaktersel opgeno- 

Nednl.md. I-eit liandige iilililv 
voor ben die er werk voor 
hebben. Dal er drie verschil- 
lende verses geleverd worden 
is een giote plus. Op verzoek 
wordt Nederlandse handleiding 
geleverd. 

Tilel: Maskeninpul (Utility) 

Medium: Cassette 

Computer: ZX Spectrum 48 K 

Prijs: DM 39.00 

Leverancier: 

Kai Uffenkamp 
Garleustrasse i 
D-4904 Enger-Dreyen. 
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1) Artikelnunimer 

2) Naam artikel (max.20 lekeus) 

3) De minimaie voorraad 

4) De omzet in lopend jaar 

5) BTW-Sleulel 

6) Oinzetgroepsnumiuer 
(max. 9 groepen) 

71 [>e inkoopsprijs 1^/ 99999.99) 
8| Gemid. inkoopsprijs over hel 

lopende jaar 
9> Veikoopsprijs {/ 99999.99| 

De artikelen worden zoals dat 
in goed georganiseerd magazijn 
lioorl. per artikelnummer 
verwerkt. 

Er is koppelng mogelijk met 
een ander programma van Kai 
Uffenkamp: Faktura 86. 
Het programma kan mel 
drives werken en verwerkt de 
gegevens op een aparte DATA 
diskette. 

Het pingrainma kan diverse 
lijsten spuwen. o.a.: 
vonnaad- . inkoopprijs- . 
verkoopprijs-, beslel- en 
omzellijsl. 

Men kan de printerdriver in- 

slelleu voor de ctEtn printer. 
Dat wil in sommige programm 
nogal eens onlbreken. 



Al met al een seer professio- 
neel pakkel. rial uitslekend 
werkt en duidelijk is voor de 



Uffenkamp Software rich! zicb 
met haar programma'* duidelijk 
op het Midden- *n Kleinbednjf. 
De program ma's die we nu beke- 
ken hebben zijn zeer volledig 
en prnfessioneel van opzet. Ook 
dit programma is weer zo'n 
degelijk product. 

Alles wal U nodig heeft ran met 
Faktura te kunnen werken is een 
Spectrum 4SK t OPUS met 1 of 2 



Met Faktura houdt U ook max. 
500 artrcssen bij van aliienier*. 
In samenwerking mel 'lagcrver- 
waltung' kunt U de arlikelen 
faktureren door slechts het 
arlikelnummer en .-taul.il in te 

Let wel: Lagerverwaltune worth 
door faklura niel bijgewerkl. 
Dat moet dan in het magazijn 
nog eens extra gebeuren. Of 
zo'n oplie edit noodzakelijk is 
valt te betwijfelen. Het is 
beter kant en klare faklureil 
naar hel magazijn te sluren, 
Daar in het magazijn de zaak 
inpakken de voorraad bijwerkei 
met 'lager ver walking* en de 
kopi,'t;ikluur lerug naar de 

werkt. 



hier is alles weer inslelhaar. 

Men kan uitsluitend met ver- 
konpsprijs werken die U in 
'lauerverw-ilrune' lieeft inge- 
geven, Voor mime p.ofessio- 
nele loepassing niel echl 
royaal, Maar hel werkl nilsle 
keild als V zonder variabele 
verkoopsprijzeu werkt. 



ri) volledig pakket. 



I inr.iiiil 



,,1.11'rh,-, 



. 1000 



g4es 

OPUS Discovery en Sp 

Per file kunnen tot ma 

verschillende artikelen worden 

bijgehouden. De files worden 

per jam verwerkt en afgeslotei 

(denk am de balans). 

Per artikel worden de volgendi 

zaken bijgehouden: 

4 



48 K Prijs: DM (.9.(11) 
Leve 



Kai Uffenkanip 
Garlenstrasse 3 
D-4904 Enger-Dreyen 

Ikciniileliiig: 9+ 



Tilel: Faklura 86 
Medium: Diskette (3,5") Opus 
Computer: Spectrum 48K I Opu 
Prijs: DM 99.00 

Kai Uffenkamp Software 

lit'iiiii deling: 8+ 



lim Ueze beweegl 
zoekt een plek om 
ieer le leggen en 
een web le spaimen. Door dele 
ivehbeii kiln jij nict lieen, en 




granalell in voorraad meedraagl 
en die bijna alles vernietigt 



nirie kan worden aansevuld 
t pakketjes die over de 
ermen verspreid liggen. 



-,l tin 



telf 



mkledeu en je 
tidden -in ■ de- week oinwiswlen 
oor een 'Hyper Alloy 
*oskeleion'. met het voordeel 
.il er een dnbbelioops 



over mijnen kunl lopeii en 
nadccl dal je een velle bonus 
aan liel eind van een level, 
dal beslaat uit 25 scliermet 
{of zones) misloopl. 



let 



Het v 



schil I 



en spellen zoals Rambo is dal 
je in plaals van virenlang dom 
achlti elkaar sctiieten nog 
luoet nadenken (niaar nicl erg 



Robots zoreei 

hiKiglen van hei limuv.^ii -.1 1: isu I 
via de vier Energy Trans- 
mission Units ofwel ETUs 
binnen peikcn moeteii liouden. 
Op bel daslibord van je setup 

binnen ah die boogie in een 
van de ETU's le lane, le hoog, 
'.evaarlijk of kriliek wordl. 
—den je niel op lijd aanwe*ig 
om de energie je schip in of 
uil te laten slromen. dan 
ontplofl de BioCompnler! 

Ook dil organisme heefl pnra- 

sourt een insekl: de Scrim. 
Dit is een verre mulalie van 
hei liedendaagse fruit vliegje. 

Aan hei begin van elk level 
Liggen er een sink of vijf 
eieren in de tunnels. Die 
eieren zijn praklisch onver- 
wneslbaa: en oulpoppeu binnei 
niel al le lange tijd in 
larven. Deze larven kruipen 
rond en zijn een makkelijke 
prooi voor je. maar het kost 



•l\ea leren hoe 
t konien maakl 



stukjese 
E Solon v 



Tussen de verschillende 

nui.'ilijklif idssriidi'ti in zil een 
klein (niaar lenk) spel, 

verdieaen. Hei verscb.il lussen 
de versie voor de 48K en die 
voor de 128 K. is een (nog) 

itelmuziekje en andere 
geluidea. 




scliiel 



i-r.slie i 



, Dil doe je 



vijandelijke installalies 

kanoimtn. radars, lol bergen 
toe. en onderlussea alles dal 
beweegl. neerschielen. 



lebben Wiz - een 

dit aardige spel - en zijn kal 
Calelite in de helder 
gekleurde Wizworld geleefd, 
niaar op een It wade Jap hebben 
Zark en zijn nionsterljes 
Wizworld bezel om alle kleuren 
het spectrum (en de 






■"/-<--"■, 



(Wal zeker weten het beste' 
excuus is voor het feit dal 
het hele laudschap dezelfde 




Jij als Wiz spring! in 
samen mel Catelite de kli 



liekse 



uia k 



i hel sthe 
lels: een r 
n een blan 



U,'die 



..je op wag benl 

kende reden aangevallen. 
■ s(ot( neer op Targ. Jij 

iberen weg te komen van 
deze planeef nadal jf (e weten 

aangevallen. Gelukkig kun je 
meteen een schip kopen, dal 
1 ui 25000 
nd koml: je 
hebl geen kans het in he! 
himKeeleKeii i niiiilekoliniiesthip 
le komen. 

Je planeel is verscheurd in 
een burueiooilng lussen de 
ijorsproiikelijke hewoners, de 
Palyars en Mechauoids. een 
lit'|i;i;ilj soorl robot en jo kuril 
verun tlneti da! : " - 



gevuld 

bellen neer le stu.uc, naa . 
dan een dtuppel vert uil vail, 
die je mel Catelite kunt 
opvangen, en een in de klenr 
die je samen nine! stellen door 
hel meneen van rode, groene en 
blauwe verf. 

Door he! oppakken van pare Is, 
die sommige aliens achleiialen 
nadal je ze gedood hebt kun je 
door de iconen bewegen die 
reehls op hel scherro slaan. 
Door op Decathlon -achlige 
manier de joystitk le bewegen 
krijg je de special* 
eigen-ihap die de icoon 
voorslelt. Dil vaiieert van 
beter klinnen best men van je 
vervoeimiddel 1o! lie! krijgen 
van een pasgelrainde Calelile 
(waarmee je de drilppels verf 
moet opvangen). 

1 na hel 



air. 



hij 



Wizball is een origineel spel. 
Er is echier een problet 
je beginl le spelen kun 
alleen de leant regelen i 
he! balletje van Wia, w 
in rnnd sluilerl, heen Spring! 
en daardoor ga je erg snel 
dood. Maar als ,e dan eindelijk 
na hel gebruiken van diverse 
parel? beler kun! sluren en 
Calelile je beipl teveutueel 
besimiid dnoi iemand andersl 
kan je een beei eind komen. 

Wizball (Ocean, /29, - 



. Je mo 



.elpen. 



MERCiKRY 



De ruiiiilekcilonie is van de 
Palyats. Daar kun je veel van 
de dingen die je op de planeel, 
in de ondeigrondse slad vindt. 
verkopen, Misschien heb je 
ila.ii goede viieiiden. Maar 
vrienden koslen geld... 

Gelukkig kun je rekeneii op de 
hulp van Benson, je Personal 
Computet van de negeude 
generatie. die zorgl voor 
Lommeiilaar en advies op liel 
lealislisclie di iedimensionale 
beeld dal je krijg! van de 
planeel. Onk kan hij maximaal 
10 vootwerpen voor je dragen 

Veel van die voorwerpen zullcu 
sleulels uioelen 7.ijn: Et zijn 
er zo'n S versehiliende. De 
vorm van de sleulel is gelijk 
aan de vorm van de deur die op 
slot zit. 



andere leleporl. 

Maar ik zal nie! le veel 
verlellen, want onldekken hoe 
je hel inoei spelen is al de 
helfl van hel plezier van bet 
spelenl 

Ik denk dat hel we! enige 
weken zo nie! maanden duurl 
voordat je van Targ onlsuapt 
bent. Kr schijnen drie 



doen. In de handleiding ivordl 
hier vaag op ingegaau: als 
suggestie wordl gegeven dal je 
voor je preslalies voor de ene 
of de andere kanl wel eeus een 
ruimteschip zou kunnen 
krijgen, Nadal je deze drie 
manieren hebl onldekl. sped 
je hel spel niioil ineer. Toeh 
denk ik dat Mercenary zijn 
hoge prijs waard is, vooral 
onidal het een zeer grote 
puzzel. een doolliol en een 
vlm-liisiiinilator in een is I 



? hebt geiezen dat de 
leden waarom je ganl spelen 
malig verklaart, kun je 

Je best mill een kleiu tankje 
over hel speelveld. Je tank 
blijlt in hel midden terwijl 
de achlergrond schokkerig been 
en weer scroll!. Je moet 
leflekloren verzamelen en die 




hen leller likl af in bee I J. Die gee ft 
tegeli/i de tijil aan. die je over hel scherm 
map doen en je score. Dil is een zescijferig 
getal. maar ik kan me met vooislellen dat 
remand m £C r dan 2000 punlen liaall. Als je een 

veld lieln afgemaakr, worden er 200 pun tea bij 
je (otaal opgeteld. 

Om het iels mueilijkcr le makeii lopen er nog 
enkele simper I uetekeiule ipriles wachl. 
Volgens de handleiding moel je je hier legen 
verdedigen maar. hoewel je een lank bestuurt, 
kun je niel schieten. Die illusie word! wel 
dour de casselteomslag gewekt. 

Ik vindl Rebel geen lined spel. Tie! word! al 
eauw eenlonrg. Ilel Iweedc level is een sink 
makkelijker dan he! eefSte en venlcr dan bet 
derde ben ik tiiei uekomeii. Daai word! je weg 
door twee robots geblokkeerd. 

Slaapverwekkend. Hon dal geld maar in je zak! 

Rebel (Virgin, /29,- Cassette) 

(Edwin Sail) 
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□ E BASIS VAN BASIC 



Deel 3 



No we in di- vorige deien van 
de?e cursus reeds hcl hnmc van 
oils adressenprogramma taebben 
gecreeerd. gaan we nu vordei 
mcl bel invullen van de diverse 
modules {pTogramuiaonderdelen). 

We gaan begiunen met de unoer- 
routine Iregel 1000-1999). 
Er zi jn diverse mogeHjkheden 
om de INHl'T ilnvner) te rege- 
len /■ is er een raetbodr om de 
invoer op faet stherm te doen 
i.p.v m dt twee edit-regcls 
ondeiaan bet scheim In eciste 
tnstamie t»an we gebiuik maken 
van de gehruikelijkc invoer ■ 
HL'ii ondeiaan bel "cheim en 
latex als we grts pruyrainma 
eenmaal werli-ml bebben. ga ik 
in een .lanvullend deel in nn de 
mogelrjkheden om invoer drrf-cl 
naai bet icherm te -r-.ir.--i I i./e 
mogelijkbcid is in wezen de 
slandaard' voor btjoa alle 
computet*, mast aelukkig vuur 
ons maakle Sir Give ten beei 
!-.ik eigeoiinmg eomputerlje 
dat vele prailuige mogelijk 
beden heed en daarom gaan we 
volgens Sir (.'lives ideefcn [e 
werk. Bovendien kunnen we ?.o 
t bedenken en ook 



9040 LET controle=( 



1010 PAPER 1: INK 7: CLS ! LET c 
ontrole-controln+l 
1020 PRIHT AT 0,11;" INVOER " 
1030 IF controle>A THEN PRIHT AT 
10,0;"BESTAND IS VOL I 



nop i 



I slerj 



the -. 



programme s. Op die manici leer 

t! teominste een computer 
Bteeraen, Als allcs al voor je 
bedaclrt is. is dc lol cr ouk tn 
meer at Daarom onderscheiden 
SpeLirum gebruikeis ?ich van 
andere gebruikeis omdat te vaak 
mecr doen mel bun com|>ulei dan 
andere computeigebiuikers. 

DE INVOER 



x Lengle L=21) 
ur lengle LA-23) 
max lengle L07) 
X lengle LP-20) 



» BESTAHD AANUAREN": I 



Regel Kill! I-]| mill role wordt 
elke keer als we een adres 
1 bijgeteld 
emen we dat). 



Regel 1020: bier even opletlen: 
Mooier is hel om de teksl 
tussen quotes (') in zgn. 
Inverse Video te zetten. Als U 
een Spectrum Plus of een 12SK 
(in 4SK mode) hebt. is dal geen 
enkel probleem, U tiki regel 
1020 in t/m de eersle quote (") 
daarna drukt LI op Inverse Video 
lik daarna de teksl in 
inclusiel spalies en dan weer 
True Video en als laaiste de 
tweede quote. U zull zien dal 
dit een Iraaier lieeld oplevert. 

Regel 10.1U controleert of we 
□ns maximaal loeeestane aautal 
adressen niet overscbrijden. 



] PRINT AT 5,1 



Read 11150 sluiten we 
een putilkomma, omda 
dat bet ingevoerde bij 
eerslvulgende printopd 
hier wordt algedrukl. 



1055 INPUT * 
1060 LET let 
1065 IF lene 



1105 INPUT "Adreo : " ; IS 

1110 LET Ien E te-LEN 1$ 

1115 IF len B te>LA THEN PRINT (0; 

"Telonfj , Qpnieuu ITOETS [ENTER] 



1135 PRINT IS 



n ITOETS I ENTER 1 
C THEN LET QS-1N 



- I,<: TilKN PRINT Hi 



1180 LET CS(controle)-I 
1185 PRINT IS 
1200 PRINT AT B,l;"Plaa 
1205 INPUT -PlBots:-iIS 



P THEN PRINT 10 



1255 INPUT "Ceb-DBtum^ilS 
1260 LET lengte-LEH 1$ 
1265 IF lenece>l.v THEN PRINT 10; 
-Telnng . opnieuw ITOETS IENTER] 

1270 IF lengte>LV THEN LET t)S-IN 

KEYS: IF CODE QSolJ THEN GO TO 

1Z70 

1275 IF lengte> Lv THEN PRINT JO 



iiiiik'ii toiiliolt-reii n 
;. aantal (A=100) nie 



) LET VS{r D ntr D l» 

i PRINT IS 

) PRINT AT 20, Oi" 



1330 GO TO 1305 



1105 PRINT AT 20,5i"TOETS [ENTER 

I" 

1110 LET QS-INKEYS: IF qS-"" THE 

N GO TO 1410 

1415 IF CODE qS"L3 THEN GO TO 1 



902D DIM N$(A,L): DIM ASIA.LA): 
DIM CS<A,LC)i DIM PS(A.LF): DIM 
VS(A.LV); DIM C{1) 



mgrijkste regels bekijkei 



regel 1030: spreekl voor zich 

IOt.0 hier controleren we de 
lengle van de ingevoerde siring 
is deze le Jang (>L) dan worden 
in regels 1065- 1075 maatregelen 
genomen, die herstel mogelijk 



In regel 1065 gebruiken we dan 
ook nog Print #0 . 
Met deze opdracht kunnen we 
hoodie ha ppen afdrukken in de 
twee editregels onderaan op hel 

Oin de boodschap weer weg te 
krijgen gebruiken we in regel 
107S een lege slriiiE die daar 
word! afgedrukl. 
Er zijn ook nog andere mcthode 
om die regel weg le krijgen en 
een ervan wordt o.a. in de 
regels 1125, 1175 1225 en 1275 
gtbtuikl. nl. (wee komma's (,,) 



Verder ziet V dat w 
IN KEYS gebruiken om ee 
loelsaanslag te controleren 
Opdruk van loeisen geven 
ssen vierkante haken [| 



Verder heb ik dan hel programma 
uilgebreid mel een SAVE en 
LOAD (online, zodat U inderdaad 
met hel programma knnt eaan 
werken. Al blijfl hel 
beperkl lot invoeren 
gegevens opslaan. 



In regel 5560 wordl de ingele 
zen waarde C(l) weer in onze 
vaiiabele 'controle' gezet. 



5000 REM opslaen 

5010 PAPER 0: INK 7: CLS 

5015 PRINT AT 5,0;"CEGEVEHS OPSL 

AAN / INLEZEN" 

5020 PRINT AT 5,2;"KEUZE:": PRIN 

50Z5 PRINT AT B , 5 ; "OPSLAAN [I 

1" 

5030 PRINT AT 10,51-INLEZEH [ 

2]" 

5035 LET QS-INKEYS: IF q$-"" THE 

N GO TO 5035 

5040 IF qs-"l" THEN GO TO 5100 

5045 IF QS-"2" THEN GO TO 5500 

5050 GO TO 5035 

5100 REM OPSLAAN 

51.10 CLS : PRINT AT 0,10;"OPSLAA 

H" 

5115 PRINT AT 10,0;"PLAATS EEN D 

ATACASSETTE EN TOETS DAARNA [ENT 

ERJ" 

S1Z0 LET qS-INKEVS: IP Q.$-"* THE 

5125 IP CODE QSol3 THEN GO TO 5 



120 



orlopig 



Voor deze laatste routine moel 
er binnen het initialiseren nog 
lets loegevoegd worden en wel 
in regel 9020 de DIM opdrachten 
Hicr uioet worden loegevoegd: 

DIM C(l). Dit is ons controle- 
getal. Dat word! in regel 5105 
let C|l)=controle 



"NAMEN" DATA HSU 
i SAVE "ADRES" DATA ASU 
) SAVE "CODE" DATA CSO 



) REM INLEZEN 



T AT 0,10;-INLEZE 



55Z0 LET QS-INKEYS: IP Q$-" 

5525 IF CODE qs<>13 THEN GO 1 

5530 LOAD "NAMEN" DATA N$C) 
5535 LOAD "ADRES- DATA A$(> 
5540 LOAD "CODE" DATA CSO 
5545 LOAD "PLAATS" DATA F$() 
5550 LOAD "DATA" DATA VSO 
5555 LOAD "CONTROLE" DATA C() 



De andere modules vul ik graag 
de volgende keer in, omdaf ik 
wegens drukke werkzaamheden 
bier geen tijd voor kon vinden. 



VRAGEN OVER BASIC 

Ken lezer vroeg op bel inge- 
zonden enqucle- form u lit r waarom 
we niel direct geslruclurcerd 
gingen programmeren met 
procedures e.d. 

Wel hel antwoord kan kort zijn: 

gaan we uit van hel Sinclair 
BASIC dat rich in de ROM van 
onze Spectrum bevindl 
En deze BASIC kent ge«n 
procedures Do-Whilv Iusauh elc. 
Ik mcen er dan ook goed aaa te 
ilucn om te hJijvcn uitgaan van 
Spectrum BASIC, nraar op zn'n 
wijz.e dat we het geleerde 
straks direct in piakhjk 
kunnen brcngen als we bijv. 
BETA-BASIC gaan gebruiken. 

Ook aan Beta Basic oiu ik graag 
een cursus wijden, maar alles 
tegelijkertijd kan allcen maar 
verwarring veroorzaken. Zeker 
beginners zullen dan allerlei 
zaken door elkaar gaan halen. 
Dus eersl de cursus Spectrum 
Basic en later dan Beta Basic. 




SPECTRUMMERS, LET OP 

Onze nieuwe laser-printer 
heeft een zeer uitgebreide 
tekenset. Toch blijkt de 
Spectrum nog een lekentje le 
hebben dat hij niet kent : 
het copyright-symbooltje (de c 
in een cirkeltje). Op plaats 
127 in de label van de laser. 
slaal een schaakhord-palroon. 
Wainii-'i'i u dus in een listing 
dit lekentje ziet : M, dan 
moet u in de plaats daarvan 
het copyright-lekentje lypen 
intended mini,:. svinhnl shift 
en de P). 



SNEL & PRECIES DELEIM ZxBl 



RECTIFICATIE 

In de vorige aflBWriiig van 
deze reeks, op bl». 34. Isle 
kolom. .'do paragraal. si 3.11 di 
mi 'I i.i,ni.[)i in het aodig in >l 
MCRTNS de ...*. Die moel 
/ijn "(baroni Is lift \ll-.l' 
nodia in de .. " De heei van 
Abbe liel ons wclen dat de a 



* Voordal u dele afleveimg 
lee si. kunt u bet beste eersl 
de lekst In het kadeitje even 
doorneinen 



Voor de eigenlJjke hcsprekiuit 
van FAcTOR. 3 algemeoe 
upnierkinaen I 

re ke optogram ma's (vooial die 
welke vaak worden doorlnpen) 
zijn prima. r onlivikkeld voor 
eco minimum aan benudigdt 

. i. ■ ook al kost da! 
eventueel exlia b>lcs. 



, !.,■ 



•eli)k ii 



vervang ik LU Dbe AND A, 
SBC HL.DE door : 
LD(-DE), lie! negatieve 
kom iik-iii tn I vail DE dus. 
gevolgd door ADD HL.DE; 
dal spaart 2 bytes en is 
sneller. 

- het geliruik van de exchange- 



regisl 



a de i 



c . genh | 



EXX v 

npsl.'ian van tie witarde van 
in.' bij het begin van de 
RTN en hel herstellen van 
die waarde voordal de RTN 
word! verlaien. traders volgl 
er een crash. O'Hara gebruikte 
hiervoor 10 bytes, alhoewel 
hel me! 6 kan; opslaan is 
evenwel nie4 nodig als de 
RTN mel de hislruclie 
RST 08 eindigl, ivat 
hoogslens 1 byte kost. 

B AS I C - p r og r anuria 



Vergeleken mel hel 
Basic-programina FACTOR 
nil fig. 3 zijn als volgt 

wij/iginpen iiangebracht : 



* Regel 1 bevat 12 byles 
veiplaatsingsioutioe, 53 bytes 
tabel en 81 byles rekenrnutine, 
die nader besproken worden bij 
de beliandeling van figmir 6c. 
De hexdump van deze regel is 
in figuur 6b zowel gegeven met 
hex adressen en hex-sum als 
mel dec(imale) adressen en 
dec-sum. De label beginl op 
adres 25755 evenals in de 
Basic-versie en de inhoud is 
gelijk aan hel resultaat van 

ile vroegere regels 210 t/m 
240. 

• Regels 40 l/m 50 z.orgen voor 
het f.psiaau van SOR N Op 
adres 25750/51 (hex 6496/7) 

en komen samen mel regel 110 
in de plaals van de vroegere 
regel 80. 

De uitdrukking (k=256) in de 
regels 45 en 50 heefl de 
waarde 1 als 'Irue' en als 
'false'. Deze korreklielerm is 
nodig omdal SOR N voor N 
in de buurt van 2"*32 zich 
*raar' gedraagl. Weer een van 
die iiijiebfiuwde rekenfouten van 
de ZX81. Zie daarloe fig. 7, 
Als gevolg hiervan leverl voor 
N ■4:«40(r72S(l de formule 
voor K in regel 40 de waarde 
256 op. Daardoor ion het polien 
op de adressen 25750/51 0000 
opleveren en dat mag vanzelf- 
sprekend niel. Dank zij de 
korrektieterm blijft SOR N 
FFFF=65535. 



:e printers slikken de mooie 
-rse tekentjes van 7.XS1 
. De figuren nemen we 
rtaau fotografisch over. 
Is we die door de auteur 
; kiijeen loeeeiiuideii, Voor de 



rkst v 



■ dit 



ra. 7 i.» 


•jock « turn ibb)I 


IB LtT M*. 
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.BB.og? fls 
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Abbe 



opportmin (Hr, 
; de enige medewerKer nie 
': geen lekst file maar gewoon 
5 afdruk loestnurt. dit is 

afgesproken). 



' fig. 3 (vorige aflevering) 

-,nd. heet voi.rtaan FACTOR. 
1 rouline in figuur 6A/6B 
B et FAcTOR (kleine c). 
! Inverse lellers lullen we als 
ine letters afdrukkeu. 



* Regels 55 t/m SO zotgen vooi 
de transformatie van de 
maximaal 10 decimale digits 
van hel deeltal N in vier 
bytes hex, opgeslagen van laag 
naar hoog op de adressen 25746 
t/m 25749 : hex 6492/3 bevat 
LO-DIVIDEND, hex 6434/5 
beval HI-DIVIDEND. 

* Regel 90 is min of meer he! 
equivalent van de vroegere 
regel 90. De aangeroepen 
rekenroutine, adres 64D0. 
keerl naar Basic terug mel de 

- evenluele ■ deler D 

(-FACTOR) op adres 6498/9 

hex, da! is 25752/53 dec. 

De FLAG op adres 649A _■ 

(25754) is alleen als 

hel een deler belrefl. 

' Regel 100 lees! de waarde 



* Regel 110 ouderzoek! of de 

FLAG o of D-l is. 

In beide gevallen wordt hel 

l.eeiiidigd, Dat op het eersle 
geziclil overbodige testen of 
D=l is, is nodig bij hel 
onder7.oek van getallen 
>65521"2; 65521 is hel 
groolste prienigelal <65536. 
Dat ouderzoek wordt dan 
namelijk nitgestrekl lot 
delers >65536. De eerste 
zinlanige deler is ('5537. In de 
MC-RTN wordl dil echter eeu 
! en me! die deler blijven we 
natniirlijk "een wig" beiug. 



irbeelden hiervan zijn: 



Voor zover niet bekeud : 

IF PEEK 25754 

is hetzelfde als 

IF PEEK 25754 <> 

maar fcorter en sneller. 



bile 



>ek v 



j N= 



N/D als 

ati.il wordt bescuouwd. Bij 

FACTOR weid dooriiuiiiiiiii 1 n l- [ 

de gevonden deler. IF N>2 

is nodig omdal anders bij 

N-2**,. als laatsle deler 

een 1 word! geprint. 



* Kegels 15D l/m 199 
beeindigen het progran 
tici prinlen van de laal: 
_ riemfacior of hel oors 
lijke gelal, zo dit een 
priemgetal is. Alleen als 
N>-11£8 is. worden de regels 
180 t/m 199 gebruikt. 



ke- 



* (let defers v 

gelallen door 

deler DE gebeurl in 

precies ZOals verklaa: 

G/D=Q. Alleen zijn 

registers nodig waan 

exeli.irii!.- i-ceisIl'i-s II 

D'E' gel '■ 

het bul[ 

steeds d 

van de deler overhlijft e 

iedere 'LOOP' via 

ADC HI,. HI. naar links 

schuifl en de carries van D' 

opvangt. 

De inslruciies op de adiessen 
64F4-64F9 doen helzellde als 
in fig. 5 RL C/RLA (adr. 
4096-4098) deed, maai nil vooi 
resp. de registers L', H'. 
E" en D\ Hel aantal bits 
dal zijn taak moet verrichten 
is 32, vandaar B=20h. 



Hel "proefdelen" en het al of 
niel berslellen van de 
.iflrekking (RESTORE resp. 
NO- RESTORE) is verge- 
lijkbaar met wal in hel 



in^l i nt lies op de adressen 
6504 en 650A link niel 
relevant. In het komende 
artikcl zal ik bet belrcffende 
gedeelle van DIVISION 
dan ook korler en sneller 
makcn. Ik beb die inslruciies 
"[lL'L'Eioineii. op rt.it de deling- 
rouline DIVISION na 
loevoeging van de llievboven 
genoenuie 8 byte 






i het 



quotient, ook separaat v 
gelallen lot 2*"32 kan worden 
gebruikt. 

Zoals reeds gezegd. als 
HL-0000 hebben we een deler 
gevonden en verlaten we de 
routine na opslag van die 
FACTOR en met de 
FLAG RESET. 

• De lest of D>SQR N is. 
bepaall of een volgende 
priemfactor gezochl wordt, of 
dat we teruggaan naar Basic 
met de FLAG SET. 



MC-routine 



• STORE bevat de in het 

voiireaande eenoenide adressi'i 
voor opslag van N. SOR N, 
FACTOR en FLAG. 

De hexdump van TABLE, de 



_WIT(ieel> worden ook dc 
eerste 5 waarden (adressen 
649B l/m 649F) gebruikl, 
bij de volgende ronden wordt 
steeds begonneu met TABLE- 
REP(eat) op 64A0. Een en 
aiider /onls reeds iiili:e!egd 
bij de bebandeling van de 
Basic- versie in het vorige 
artikcl. 

• De deler DE bevat dankzij 
de ZEEF- label geen veelvouden 
van 2,3,5 of 7, zdals eerder 
verklaard bij de hespreking 
van de DELER ALGOKIIME 
van FACTOR. De posilie in 
de label wordt vastgehouden in 
hel C register. Na het berei- 
ken van hel einde van de 
label, adres 64CF, wordt via 
de test XOR CF in de volgende 
ronde begonnen met TABLE- 
REP, adres 64AIJ. 



carry voor hel quotienl worden 
ge?orgd. Een en wider gebeurl 
d(nn iiistruclies op de adiessen 
64FD/E en (>507-650A : 
SAVE CARRY genaamd. 



Al of niel een carry v 
quotient, dat bij het n 



r het 



links schuiven Wordt 
in de registers L\ H',~E' en 
D\ wordl bereikl door de 
mslruclie op de adressen 
6501/2. 6504/5/6 en 650A. Voor 
het 'afmaken' van het quotienl 
zou na de DJNZ-instructie de 8 
bytes-rouline van de adressen 
64F3-64FA moelen worden 
herhaald. nvcteenkomend met 
ivai op d e adressen 40A3-40AS 
■n de routine van Fig. 5 is 
gedaaa. 

Ik -i. i dal niet . .-...i.vi omdal 
het ei i. -i.l. ■;■,- nm . i i te 
wuien of D -en deler is van N 
ft niet En daarvoor is in 

i alleen de uileindelijke 



arde v 



i HI. i 



ialgev< 



Timing 



In hel volgende artikel 
bespreek ik de laatste versie 
van ONTBINDING IN 
PR1EMFACTOREN, genaamd 
FAclOR (kleine c en t). 
Dat programma is nog sneller 
dan bet nu behandelde, niet 
alleen oindat - zoals aange- 
kondigd - alle resterende 
Basic- functies naar de 
MC-RTN zijn overgebracht. 
maar ook ranri.il in de routine 
DIVISION, naasi de reeds 
genocnide, verdure lijdwinsl 
kan worden gehoekl. Dan ga ik 
ook uitvoerig in op de liming 
van de drit pi ok cam ma's. Op 
dit moment vofata ik mel te 
veimelden dat de maximale 
rekenlijd van FAcTOR ruin 
seconder! is, lerwijl die van 
FACTOR ruin. 7 minuten kan 
bedragen, 
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(H. 



] Abbe) 



m mimmm 



en er sleclils (wee De derde 

n slaal muisprogram- J. Damen 

n. Wal erg niager.als muisprogram m 

kt naar de prijzen- en Opslartprog 

beschikbaar was. Muissysteem. 



e;i;iI diiiiioii) naar 
'ure nu IIJD 
:Adressenbesland 



I l-l| h. 



a alle 



ingei 



machinelaal- 

_sa- Zijn 
Op die manie 
idige 



Omdat een van de inzenders ook 
in de wedstrijd voor Educalieve 
programma's meedoel, blijfl er 
uiieindelijk deck's 1 deel- 



Hij krijgl i 



[ vlekkdoos ~ 



K Clea 



:4iiaii;l l > 1 ul'IIoM»il" CodeiRaud 
Usi 34000 ! Nee een echle 
oneliner is GEEN madiinetaal- 
programma i" DiL betekcnde voo 
cell aantal inwiarama's dal ze 
/.mi dei met I al e.ecn kans nieer 
maakteu op een prijs. 

Voor de rest waren de program - 
■ I erg vcrschillend 

i. Zo varieerde de loe- 
gekende punlen per jirogranima 
van een lot 8. Originele 
ideeen waren er niet veel. Veel 



Gezien de kwalileiL van he! 

geconibineerde F.ducaHeve'Mius 

nrogramma van H, Hoedemakers 

koml net programma van J. Damen De Heer J. Dam 



met ovcral even duidelijk 
Asterisk is een leult idee i 
het werk! Iraag. Aldus de 




Een Iweede prijs een VVV-bon 
van fl. 75,00 gaat naar Mike 
Hellema voor zijn knappe UDG 
oniwerper. 



Educatieve programma's 




' Programme "Doolhof- School' 

M. Kuipers. 

Preseulatie niooi. Goede infor- 
uiatie. Leak idee. Reageerl 
tiaag op toelsa an slag. Er zit 
ten fatale bug in lie! program- 
ma: Als je in de school in he! 
lokaal "Aardrijkskunde" aankoml 
volgl de foulnielding: "Ou! of 
Memory, 1641:1". Slordig < 



' Programma's "Parabool", 

"Monohvbr.", "Funclies", 
"Breukeii", "Ongelijk", 
"Alkaan" "Op/Af", "Moti Oticle" 
van E. Augusleijn. 

Parabool is gemaakl met Beta 



Facloren is gemaakl m 
Erg goed voorgeslcld u 
prima help fun die. 



In dele wedslrijd kregen we 
maar liefst 47 verschillende 
programma's onder ogen. 



He! proeramma lireiiken is 
van opzel, eenvoudig met ei 
goede help-pagiua. 

-* Programma's van T. Schij 
"Tot 10" mooi gepresenteerd 



"1 letter anders" Werkl 
eenvoudig mooie presenlalie 
mnar helaas foute programm 
structuur (Een CLEAR in ei 



huivilkde input, bijv. deleti 
door 0. {rege! 900-910}! 
Mfnukeuw nicl le nndersclii-i- 
den op zwart/wit (schakelt 
tussen blauw en rood) Stop van 
hel programme iioenl Jrastisdi: 
RND USR ! 



erg 



Presenlatic simpel v 
eenvoudige ScreenS. 
Werkt le traag. Bovendier 
geeu invoerconlrole bij hi 

kun je 12 x 13 fnvoMen i 

bij hel uitvoeren kun je 
slechts getallen kiezen vai 
lot 9 !! 






i R. I'itl 



iboogaard. 



I'lograinma goed van opzel, inpui 
routine le liaae voo: de snelle 
typisi(e): de input routine kan 
met volgen. Gevolg: snelle 
jonaens hnk'n i'i'h store ! 
Hehas ook liier enkele fouten 
en we] in het frnns. 
Met programma lieefl een 
uitgesproken neiging imparfait 
du subjonclif op te vragen. 
deze werkwoordvorm is reeds in 
het begin van de jaren 40 een 
zachle dood geslorvpn. Het is 
le hopen dat niet alle Franse 
leerboeken in Nederland dit 
ondersleunen want dan zullcn de 
Neikrliinders nooil goed Fraus 
leren ! Voor de teksten eerst 
nog ceils oveileggen met de 
leraar Frans. 



Moualiybride 
Mooie presentalie. kaiis t> 
copy is goed ( Visualiserei 
F1-F2) Geschreven met I 



1 3.0 



Funclies 

Mooie presentalie, goede demo 

met loch een paar slordig- 

heidjes (wissen van plol punteu 

tijdens demo). Practkum loopl 

wat Iraag. grafisch prima 

voorgesteld, 

Breuken 

Mooi voorgesteld, beelje Irage 

Ongelijk 



Alkaan 

Underscheid tussen tri en tetra 

ging bij een der juryleden mis! 



Mon Oncle 

Mooi maar beval een falale bug, 

als je niet slop! na 10 opgaven 

krijg je gegarandeerd: 

"Out of Screen, 270:1*. 

Algemeen: veel programma's liier 
en daar origincel, maar nogal 
duidelijk verschil in nivo. 



* Programma Tovenaar v 
met on Geheugenoelen 
typen en Spelling, 
van P. /.elderloo 



begin 



el hei la a Isle ■•< ■■'.■■■• ■'■ ■• ' le 
ieo: F.en spellingsprogram ■ 
.._ .1 met spelfoulen I 
Hel programme is voor de 128K 
Spectrum en erg lang (l.ange 
Isadlijd!) Gnfiseb is bet 
programma prima veraorgd Ue 
doo. de Mtrar onlwitkefde ape 
ci.ni- !■!■■. i i. mum is wel erg 
traag. Hel programme is ons 
inziens geschikt mui de wal 
oudcie kinderen Maai eerst de 
vele spellingsfouten ber»lellen! 



Een 128K programma. Mooie pre 
sen! alia. e«(l lielaas geen 
hulp hij foiltieve invoei. 
Sleclns bedoeld vuor mensen die 



geen letlei urtleg boe hel 
programme If bcsluren is. 



' Programma "Gilaar" en een 
bijbehorende "Akkoordnotatie- 
methode*. 
van: R. Uitterlinden. 

Fraai slartscherm. Slenimen moor 
gepresenteerd. Volledige begin- 
nerscursus gitaarspelen. De 
auleur ging in zijn ijver nel 
iets le ver door hut programma 
te "beveiligen*. helgeen niel 
zo slim is als hel programme 
voor een wedstiijd beoordeeld 



" De programma'* "Refcenen o 
lU-tal". "Optellen- en 
"Aflrekken" 
van-. E. Reymiers 

In het algemeen kan men van 
deze programme's zeggen dat ze 
eenvoudig van Opzet zijn zonder 
ze fekort le doen. De program - 
ma's zijn bedoeld voor moeilijk 
lercnde kindeien en ze voldoen 
uilslekend. Alle uilleg vindt 
op het scherm plaats. De bedie- 



KIlAvHiW 


!»*' 


4 

J. 


' 


De hoofdprijswinnaar. Liever een margrietwielprinter 
dan een kleurenmouilor ? Geen probleem, toch ! 



Vrij compleel pro era nun a. vele 
moai-lijkliedtu. Mooi maai cluu 
lang. Voor sludenlen 
waarschijnlijk een duidelijk 
program ma. Programme onlsta.n 
tijdens de studie. Goed naar 
computer "verlaald" 



1 J. 



a der Elsen. 



mpele 



Delen: 

Grafisth goed verzorgd, jammer 
dat resultant van de deling 
niet op het scherm wordl gezet. 
(gebetirl wel hij correetie 

Si aart delen: 

Niet beveiligd tegen delen door 
0. We kregen ook 2x subscript 
wrong in 417 t 

r Honderdveld; 
Grafiscb mooi. Paar slonlig- 
heidjes, blijfl herhalen hij 
een foutief autwoord. Waarom 
elke keer hcle scherm opnieuw 7 

Sommen Honderveid: 
Goede logische ophoUW;eersI 
ile fientallen erbij lellen en 
dan pas de eenheden. 

Tafeltjes: 

Erg ingewikkeld slartscherm 

uiL.'i.HlL-lijk voor bedoeld is. 
Trage reacties op toelsaanslag! 



* Prograinma's "Grafische 
(uncliesVprecisie-rekenen", 
"Toiens van Hanoi". 
"Rekenmachiiie" van M. van 
Dinther. 

Flexigraaf (Grafische luncties) 
Vrij ingewikkeld programme, 
door de vele mogclijkheden, had 
wal gehruikersvriendelijker 
gekund. Fraai programme. 

Precision (precisie rekeuenl: 
Vrij traag programma (12 x 12= 
duurt zo'n twee seconden !) 
Enkel vierkantswortel. 

Rekenmachine (Calculator) 
Leuke optie cm van je Spectrum 
een wetenschappelijke 
calculator te maken. 



Programma geschreven met Beta 
Basic 3.0. Idee is prima 
verwerkt. Meer teksl-uilleg dan 
beeld- Urtleg. 

Jammer dal hel programma niel 
publii eerbaar is omdat er 
variabelen werden meegeSAVIid 
die alleen aan de auteur bekend 



van G. Varihove 

Leuk programme voui opttllen 
lol 2(1. Helaas komen er te 
dezelfde opgaven in voor t 
Slechts 1 opgave per beurl 






ken Ptesentalie 



l!l .1L1M1K1 V 



i vortge pro- 

_e de keuze heht 
. i de tijd digitus! met de 
wijzers of in aewone taal op te 
Seven. (Oovet. H=haif, U=uur. 

>kwart V=Voor) Leuk idee goed 
-oilgeweikl. 

rrangsregeTs I 

Gral iscli had lict \\; 

duidelijker mogen 7 



Eenvoudig recht loe recht aar 
programma dat juecies doel v 
het voor geschreven is. Had 
misschien wal speelser gekum 




11a is reeds gt-publiti 
Opsiarten duuil lang ! Pro- 
gramma tekem alleiU'i aon in 
melrische functies. pnigritmu 
goed gesliuclureerd en gedot 



II 


12 
■ ■ 1" ■ 


1 




U = UUR 
H=HRLF 


10 .' 






a 


ij=uoor 

0=OUER 


J- 


J* 




-3 


K=KURRT 


|goed||fout| 


7 '• 


■ • 1 ■ • ■ 


5 


4 


10 10 
9 9 
8 3 

6 6 


11 OUER 


HALF 


s 




1 W I 













besluurd kao woiden. Riologie 
is een programing om bomeu te 
Ilevii liL-rkoiinen, Orieineel 
idee. Handig te bediencu, 

issant leer prog ram ma, 

. uitgewerkt. 



I'.vii IkiiiJii! I'lr'Hi.imm.ial [t- uni 
leren wcrken met de diverse 
laislelsels. Reeds gepublicoerd 



Itel laalste programma dal we 
ter beoordeling kregen was 
"Klokkijken" van D. Smol 

Een andere variant op het 
klokkijken. Je liebt hier de 
invueiiiiocclijktu-'id in gewone 
teal: bijv. _S voor 12. Met sim- 
pele loetsaanslagen (h=half, v= 

kun je de tijd aangeven. Idee 
goed in praktijk gebracht. Ver- 
gelijkbaar met KIok2 van B. 
Kori, de presentatie is vrien- 
delijker voor kinderen (met een 
Clown) Hetzelfde idee gehad of 
kennen de auleurs elkaar ? 



mlgew, 



zijn 



In de vele Rekenpiogramnia's die 
we de afgidopen niiiaiiden lii:H>i-n 
bekeken en beoordeeld vail hel 
op dal er niet een op hel idee 
gekomen is om te controleren ol 
de veelal RANDOM gegenereerde 
gelallen al seas eerder in de 
test gebrnikt waren. 
Zo kreeg je bij alle program- 
ma's opgaven die je net al 
gemaakt had. Daar had best wal 
aaagedaaa kuiuieu worden. 

Verder vie] ons op dal in de 
paar laalprograinma's die binnen- 
k wain en er nogal wal Ualfouten 
vonrkwamen en da! was voor de 
jury echl te gek ! 

Verder waren er wal program ma'; 
om functies en parabolen te 
tekenen. Allemaal goed in beeid 
gebrachl Maar waarom is er 
niemand op hel idee gekomen om 
behalve goniomeirisrbe funnies 
of vergelijkineen, deie giafi- 
sche mugeli|kheden te gebruiken 
om bijv gegevens van een of 
andei loepassingipiogiamma in 
beeld te breogen ? 



Er waren Iwee piuiri.imni 
ec mel kop en ic-homlcr 1 . 
bovenuit slakcn "Gitaar" 
'Biologic' 



e pup K l> nenmoniloi 
H llnedemiiekeis uil Oosliu 
De hcer Hoedemaekers koos 
een andeie pfijs tflel Mo 
vergelijkbare waardc. 




■e 1/m lOe prijs 
Boekenpakkel bestaande uit ( 
lilels voor de ZX Spectrum. 
en een Joysiick. 

P, Viijdag, Eindhoven 

E. Reymiers. Eeklo 

E. Augusieiin. Sdm-i m.miiik- 

D. Smol, Den Haag 



De jury had hel besli 



afgewogen li 
bovensi.i.mde luislag een leii 
De motivatie vindt U lerug in 
bel vooigaaode coxaatentaai 
Wellicht ien ovetvloeije ;nnken 
we nog op dal or geen corres- 
pondenlie over de inl-lag 
mogelijk is. 

Bent li dit keer niel in de 
prijzen gevaMen oiet ireuren 
wellicbl doet zich nng een keei 
een mocelijkheid voor. 
Rest ons alle deelneraers le 
danken voor bun inspsnning en 
enthousiasme. (He juiy) 




Dit eenvoudige mnar leuke spel 
voor de ZX SI beval alle 
nodige instructies in he! 
progiamma zelf. Het k,in 
eespceM noiden ilcor 2 tol 6 

Ben opmetking 

Op regels 56 lol 61 en "1 lot 



W q nn q r 



FTHr3 



&m& 



3 CLS 



55 FOR l_ = 



B PRINT RT a, 5.1 "^^™^"— ' 
«1NT PIT- 13,3; -UXL. JE : 



UCTIES (J 



THEN GOTO 



"HOE^iSSL. SPEL.E3S 



LEX G1 = S 



JB THEN GOTO a.* 



5PELER5 



as PRINT "RONOE . 

3a i( PRINT. "KIE5 EEN GETRL 11 Ts 

31 dosuB J ei'' 

32 PRINT AT S,24.JP$(F,1 TO 7J 

33 PRINT PIT 15, a; "IN OE RACE Z 



37 LET P=INT IRND»6) tl 

33 LET K=CODE INKEYS 

39 IF K<29 OR K >3«- THEN SOTO 3 



IF r 



i3 NEXT G 

a-4. NEXT P 

i5 LET R=R + 1 

iS GOTO 3E 

4.7 FOR 0»1S TO 31 

4-9 PRINT RT 8,0-1;" 

4-9 PRINT RT B,0; "■'• 

50 NEXT O 

El PRINT RT 8,31; " ' 



62 PRINT RT 1*^6; ". 

5* LET 11 "" RT 15 -^®;, n *t^' 1 TO 7) 

65 LET 0=Q-i 

,,.56 PRINT RT 2B, O; "DRUK EEN TOE 



69 GOTO 44- 

76 CLS 

71 PRINT RT S,5; ' 



DE UINNHBR IS 



y< next f *■* '■" " 

'?To^N)*- NT RT a0 ' B '" ND O EEN KEER 
?§ JE INKEY*="J- THEN RUN 

wssisc^ou^m" 

"IN EEN PISTOOL URRR 
"IN KUNNEN.ZTT 1 KOBE 
;;JE HOUD NU HET PI5T0 
"HOOFD EN UE Hfifii-T PE 
''OUER. UIE BLXJFT HET 



CLS 




ROULETTE* 



- ; '■] ;; ' i" ". " '[ 



hand van een boek in 
machinetanl hebben leren 
progrsmmeren. zullen weinig 
over interrupts gelezen hebben. 
oiudat dil onderwerp in de 
nieesle lioeken angstvallig 
vermeden wordt. Dit is erg 
jammer, omd.ii he I gebruiken van 
inlemipls helemaal iiiet 
ingewikkeld is en in veel 
gevallen handig kan zijn. 



Wal is ecu 



ntcrrupl ? 



Een interrupt is uiet nieer. dan 
een onderbreking van de Z80. 
Deze onderbrekingen worden ver 
oorzaakt door een randappara.il. 
dal oin de een of andere reden 
een bepaalde routine in het 
geheligen wil opstarten. Zo'n 



Een randapparaal kan deze 

aanroepen via een van de twee 
iulemipl-aansluitingen: &6n 
voor maskeerbare interrupls. de 
andere voor niet-raaskeerbare 
interrupts. De niet-maskeerbare 



rrupts 



allee 



progra 

als hij roulines wil schrijven 
voot speciale randapparalen, Ue 
maskeerbare interrupts zijn 
veel interessanler. dmdal deze 
inlerrupt-service- routines op 
elke SPECTRUM worden 
aangerocpen. ongeachl hel 
aantal randapparalen dal erop 



(verder afgekorl als. 
kan door de program 
verbodcn of loegeslaan, De Dl 
(Disable Inteiupl) insttuctie 
verbiedt verdere inlerrupl- 
aanvragen. De El (Enable 
Interrupt) instruct" staal 
verdere inlerrupi-aanvragen 
toe. DI kan in het hoofd- 
liroei.irmiia dus gehrliikl worder 
als routine om de M.INT. te 
stonpen. Gebruikt men daarna 
weer EI. dan gaal de M.INT. 



Op een 'kale' Spectrum (-een 
Spectrum waar geen randappa- 
ralen op aangesloteii zijn die 



Nu zult U zich waarschijnlijk 
afvragen hoe de Z.80 uitkiesl, 
welke service routine moel 
worden aangeroepen. Dit hangl 
er helemaal van af in welke 
intenupt-mode de Z80 staal. D 
Z80 kent drie interrupt -modes. 
De keuze word! gemaakt door i 
inqlnnlies IM U (lnterrupi 
Mode l)j. IM I en IM 2. 



de ZSO namelijk op een byte, 
die op de DATABUS geplaats 
wordt. Deze hvte is het lage 
deel van het adres waarin het 
start :kIics van de service- 
routine staal. De SPECTRUM zal 
zelf aliijd 255 op deze DATABUS 
zetten. De programmer kan het 
lingers deel van hel adres 
bepalen. Dil liogeie deel staal 
namelijk aliijd in hel 
[register (hel INTERRUPT - 
PAG1NA- ADRES- REGISTER). 

Door nu hel I -register de 
wa;nde FE(«254) 1c geven, 
krijgen we als PAGINA-ADRES 
het adres FEFF (-65279). Door 
FEFF hel start-adres 



op 



r gew 



,i de band v 



. alsof e 



eigiMi ■ 



dat 



a elke 



it gevolg 



>epl de ZSO i 



l de 1/50 



secomie dez 

Het word! iets lastiger als we 
het PAGINA-ADRES in de 
onderste 16 K van hel RAM wil 
zetten (dit geldl voornl voor 
It.K gebruikers). De ULA 
eebruikt dil Babied namelijk 
uoni video- nitvoer. Dus moel e 
a hel 



: loegestaan is. de ZSO wachl 
tol een randapparaal een 
inslruclie op de DATABUS zct. 
De?.e instructie wordt dan 
uitgevoerd. Een CALL of RST 
wordt ook uitgevoerd, maar moel 
eindigen met RF-TI (RETurn from 
Interrupt) i.p.v. RET. 

IM 1 is de mode waarin de ZSO 
slaal na een RESET. Ais er een 
interrupt -aanvraag plaatsvindl, 
voert de ZSO een RST 38 (hex) 
uil. Dil is bij de Spectrum de 

KEYBOARD- routine en 

de 'CLOCK'. 



een mogelijkheid zijn 
PAGINA-ADRES in ROM te 
viudeir. Dit kan door het 
I- register de waarde 28H(-40) 
le gsven. Hierdoor koiul hel 
PAGINA-ADRES op 28FF H 
(=10495) le staan, waarin het 
adres 7E5C H (-32348) staal. De 
service -routine in IM 2 heeft 
op een 16K machine dus altijd 
als slartadres 32348. 



IM 2 



s hel r 



inleressant. In dez 
U zelf bepalen welke service- 
routine nioet worden aangeroepc 
Deze service -routine mag U op 
een willekeurig adres in het 
geheugen zetten. Het start- 

echter op een bepaald adres 
staan. Dil adres wordt door II 
en door een randapparaal 
bepaald. 






.. Hel e 



t gebi 
nischakelen van IM 2, ei 
PAGINA-ADRES bepalf 
gebruik hiervoor de ROM- 
mii het programma ook op 
machine le laten werken. 



bet 



1 . Beep Border 



(In alle tontines die verderop 
staan. kan bij ecu 48K machine 
he! ORG-adtes veranderd worden, 
als U de 48k versie van 
INT_M2_ON niaar gebruikt.) 

Deze korle routine (INT_M2_OMl 
jet het PAG1NA-ADRES op 
#2SFF. Dit moet via hel 
A-register gebeuren, omdal het 



PUSS BC 
LD HL,0 
LD B,0 
LD A,(HL) 
OUT (25*) ,A 
INC HE. 
DJHZ LI 
POP BC 
POP HL 
POP AF 



ZOO IHT m OH; 
210 DI 

220 LD A, 128 



r de Z8U. Met El 



LET OJ* ! F.I slaal interrupt - 
aanvraag toe. niaar pas na de 
instriKlie die op EI voigt. Dit 

gebruik van El in een service- 
service -routine leu tin en worden 
aangeroepen tenvijl de andere 
nog niet was beeindigd. Door de 
combinatie EI RET te gebruiken. 

met RET. en is aanvraag van een 
nieuwe interrupt ook pas 
mogelijk na RET. 

De volgende voorbeeld- routines 
kunl u allemaal met een 
ASSEMBLER in typen. Als u een 
'SK machine heefi. kunl U het 
— jRG-adres veranderen, als U de 
48k versie van INT_M2_ON ma; 
gebruikt. 



2. Screendump 



ORG 32368 


atari 


IHTROU RST /38 


norm 


PUSB AF 




FUSE BC 




PUSH DE 




PUSB "I. 




DI 


verb! 




FBFE - 


IN A,{C) 


bltpa 


LD BL, 16384 


HL-ati 




nants 


BIT 4, A 


bit «■ 


CALL Z.I0EB2 


izidi.ni 



240 IMIJI2 c 



1 . Beep Border 



Dit kleine program maalje 
veranderl konstatit de kleur van 
de border, en laat een krakend 
geluid horen. Als U de routine 
opsiarl bij de ENT-directive 
staal de inlerrupt-service- 
routine ingeschakeld. V heefl 
dan nog de voile controle over 
de [5AS1C editor/interpreter. 
Hel lijkt dan ook net alsof het 
piui>i,in]in,i in],ilh;uike]]jk van h 
in jo Id program ma werkt. 



geeft u~de mogelijkhei 
screen-dumps van het scherm te 
maken door op de "v" loels te 



Onder het 


LADEN van 


prop ram in 


liaall hel 11 


op de V la 


els te drukk 


de LOAD- 




Dl-instruC 




interrupts 


uifschakeli. 



De volgendi 



e lijkl 



(1 erg 
.■] op de vorige. Nadal u de 
'v' toels hebt ingedrukl. SAVEd 
hij niimelijk liet seherm naar 
TAPE. Hierna kunl u hel seherm 
in een leken-programma laden, 
en veranderen. Hel seherm wordt 
geSAVEd onder de naam: 'LOAD 
SCREENS SCRS". en gepriut op 
1.0. Als u dus voor hel LADEN, 
CLS geeft. overschrijit de naam 
de melding "bytes:". Dit is een 
Iruuk die in veel commerciele 
programme's ook gebruiki word!. 
Ook inat het programma 
u een programma of dala-hlnl 
kunl SAVEn vannil madiinel; 






3. Scherm op tape 



ORG 323*8 

RTS (38 

PUSH SC 
PUSH D£ 
FUSS RX 



JP, NZ 
LD DE 
LD IX. 



Semi- 



ullilasking 



I 1 heell al geiien, da' hel 
lijkl alsof al de?.- r online! 
tegelijk met hel 
basic 'inacbioetaal piogiau 
"■!■'' Mike) 



dat o 



r een s 



r.ibleem 



a definieren Om 
ip le lossen. 
lieb ik een routine gescbici.cn, 
die mi een label vetsctuljcnde 
scivicerouiines ACHTER 
1-1 KAAK aamoepl Op deze 
rnaniei lijkt hel alsof de 
Spectrum meerderc 
leeeli|k nit kan ioi 
li-i«-i|l hij 'i 
elkaar u.lw.e 
tilel SEMI. i 



ill. 



nut 

■ r .!.■.-■ de 



1 NAME DEFB 22,1 

) DEFB 239, 

1 LENGTE DEFW 651? 

1 START DEFM 1638 



LET OP I De eerste bylt 
DBF- block, geetl het aa 
keer nan. dal de zelfde i 
achler elkaar moel word 
uitgevoerd. Dil getal mo 
Jiggen TUSSEN de en 
omdat 255 als cind marl 
gebmikt wordt. 

Dan volgt n n lie! progra 
Iwee voorbeeld- routines 
Deze kunl U gehruiken 



4. Semi -Multitasking 



3 REST 1 
DI 



PUSH AF 
PUSH BC 
PUSH HL 
PUSH DE 
PUSH IX 
LD BL.IBTRET 



LD A, 255 


CALL Z.CFY 


LD L, (IX+01) 


LD H,{IX+02) 


JP <HL» 


INTRET LD IX,(I.AFUNC 


DEC [IX* 00) 


JR HZ.INTOUT 


IHC IX 


IHC IX 


IHC IX 


INC IX 


INC IX 


INC IX 


IHC IX 


LD (LAFUNC).IS 


urroiir pop lx 


POP DP. 


POP UL 


POP BC 


POP AF 


EI 


SET 


CPT LD IX,TABEL3 


LD (LAFUNC),IX 


LD BL.TABEL 


LD DE.TABEL2 


LD BC,<rABLEN) 


LDIR 


RET 


EXT $ 


INT M2 ON: 


~ "bi 


LD A, 128 



570 MOVE 


LD HI, 2 3263 




LD DE, 23295 




LD BC.736 


600 




710 


LD A.ZOOIUOOO 




LD B,32 


730 LI 


LD (DE),A 


710 


DEC UE 


750 


DJHZ LI 




RET 


770 




7 HO POKE 


LD A.255 


790 


LD (22528), A 


800 


RET 


820 LAEUHC 


DEFW 


830 TABLEH 


DEFU 15 




DEFB ^h 


700 


DEFW HOVE 




DEFU 0,0 


720 




730 


DEFW PORE 




DEFW 0.0 


750 


DEFB 255 


760 TABEL2 


DBFS 15 



WORDT NU 
ABONNEE 

en 
ontvang 

DE SPECIAL 

GRATIS !!! 



Ais U besluit om voor 31 maari 
1'tSS eeii alioniienicnt op de 

ontvangt U liel in april 1988 
nil Ic ecven Spcdale nummer 
hetanaal gratis. 
Een extra kadoolje van f S.95! 
Niel-abonnees kunneo deze 
Special uitsluitend via de 
losse verkoop verkrijgen. 



Als U alleen losse nummers 
koopl hetaall U / (10,95. Een 
Mmmn'e heefl dus raaar liefst 



I! Iieefl cen QL en IF will in C 
gann program mere n. Als ahonnee 
' ijg je / 39.00 korline op de 
compiLti van HiSofi.' 

.oideelljes bij. 
DOEN DUS ! 






olfolf] 



II! 



Lflj 



asi 



UITBRE1DINGEN VAN TASWORD 2 
Drs. A.J. Schoneveld 



I basic - pellet 



,le 



database! In it 



i Tasword two kan tol 
ongeveer de Uelit wotden gecompiimecn' " 
dat dit afbreuk doel aau de iverking of a 
gebtuikersvHendelijkheid ervan. Bovendien 
kunnen tic twee Imlppagina's 1'oor andere 
doeleinden wind™ gebrmki ■ je liebt nok mm 
het handboekje: daarbij heb je na enige 
ervaring met deze lekstbewerket. deze hulp al 
gauw met meer oodig. 

Verrassend is dat de bytes van de ickslfile 
direct met PKF-.K en I'OKl ; vaimit Basic 
toegankelijk zijn. Hit maakt TW II tol vee! 
meet dan alleen etn tekslbewerker : liij is 
hijzonder gemakkelijk o 
volwaardige spreadsheet 
aigelciiien jaren lieb ik ecu t.. 
nieuwe mogelijkheden aan TW II toegevoeed, 
Enkele ervan ziet U hieroader. Misschien kan 
ik in een volgend artikel op de overige 
mogelijkliedcn ingaan. Dit hnngt ook at van U' 
resuoris op dit artikel. 

Als LI de onderslaande programma's lietil 
ingetikt, beschikt U over zoveel optics als 
er letters in het alfabet zijn. V moet 
beginnen met bet programma "extra mc" in te 
likken en te runnen. Dit programma creeert 
enkele extra machinelaal-rotitines. die op de 
eerste hulppagina van Tasword 2 worden 
onderaebiaclil. Wat deze i. -mines doen, leest 
U in het laalsle hoofdstuk van dit artikel : 
"Handleiding bij het programma". Als V hel 
programma "extra mc" liebt ingetikt, nioel I! 
eerst doen: GOTO 400 om te controleren 
of de datareaels goed zijn ingetyp-l. 
Vervolgens SAVT.I l. ; het programma en 
lenslotte doel U RUN. 



Programma : "extra mc 1 ' 



10 REM DE MACRTNETAAL VOOR SNEL SAVEN BH 
LOADEN IS ONTWORPEN DOOR MESS MICRO SYS 

20 REM IN DIT PROGRAMMA WORDT OP DE ADRE 
SSEN 54820 T/M 56159, D.W.Z. 1330 BYTES 
P DE EERSTE HELPPAGINA VAN TASWORD 2, DE 
MACI11NETAAL VOOR SHEL SAVES EH LOADEH GEG 
EHEREERD- _ „ 

30 INPUT |2;"ONDER WELKE NAAH STAAT DE H 
ACH1NETAAL VAH TASWORD 2 BIJ V OP BAND OF 
MICRODRIVE/DISKETTE?";i0;T$ _, 

40 PRINT ""KIES TUSSEN: n, '"l CASSETTE'" 
"2 MICRODRIVE/DISKETTE." 



: READ d: PORE p 



50 PAUSE 0: LET G-PEEK 23560-48: IF Col 
AND G<>2 THEN GO TO 50 

60 PRINT '"DOE DE ";("TAPE" AHD G=l)it"C 
ARTRIDGE/ DISKETTE" AND G=Z)"'IN HET APPAR 
AAT EN DRUK OP EEN TOETS.": PAUSE 0: 
PRINT " LOAD "(TSfCODE " 
70 IF G-l THEN LOAD TSCODE 
80 IF G-2 THEN LOAD *"H" ; 1 ;TSCODE 
90 PRINT J0j"EVEN GEDULD" : LET A-9: LET 
B=63748-(10Z4*A): LET C=B: REM AI.S EEN 
ANDERE WAARDE VOOR A KIEST {0-30 MOGEN) D 
AN UORDT DE SNELLAADROUTINE OP EEN ANDER 
ADRES GBGBHEREERD: ; -AAT m'-T :■ tastKN '.' 
AN 1024. ALS BV. A=8 DAN KOMT DE ROUTINE 
NIET OP ADRES 54820, MAAR OP 53796 TE STA 
AH. 
100 RESTORE 310: FOR N=l TO 355: READ D 
110 IF N<289 THEN GO TO 170 
120 IF D=251 THEN GO TO 180 _ 

130 PORE B,D 
140 LET B-B-H 
150 NEXT N 
160 GO TO ZOO 

170 IF N-73 OR N-97 OR N-133 OR D<250 
THEN GO TO 130 
180 LET D=D-(A*4) 
190 GO TO 130 
ZOO CLS : PRINT USR C 
210 FOR p-54784 TO 54816: 
,d: NEXT p 
ZZO FOR P-54817 TO 54819: POKE P,32: 

230 FOR P-56150 TO 56191: POKE P,32: 

NEXT P 

240 FOR p=56192 TO 56201: READ d: POKE p 
,d: NEXT p 

250 FOR P=56Z02 TO 56319: PORE P,32: 
NEXT F 

260 CLS : PRINT "DE SNELLAAD EN SNELSAVE 
ROUTIBE IS NU GEGENEREERD OP DE ADRESSEN 
548Z0 T/M 56149 VAN DE EERSTE HELPPAGINA. 
VERDER IS OP DE ADRESSEN 54784 T/M 54816 
DE ROUTINE ' COPY bytes' EN OP DE ADRESSE 
N 56192 T/M 56201 DE ROUTINE -READ tape' 
GEGENEREERD. DF. OVERIGE ADRESSEN VAN DEZE 
PAG1NA ZIJN MET SPATIES GEPOKET , ZODAT U 
MET EDIT ALLEEN DEZE MACHINETAALROUTINES 
OP DE EERSTE HELPPAGINA ZIET STAAN." 

Z70 PRINT "NA EEN DRUK OP EEN TOETS WORD 
T DE AANGEPASTE MACKINETAAL VAN TASWORD 2 
GESAVED ONDER DEZELFDENAAM, NL. : ""TAB 

10; BRIGHT ljT$: PAUSE 0: PRINT " SAVE "; 
TS;"CODE " 

2S0 IF G-l THEN SAVE TSCODE 54784,10751: 
VERIFY TSCODE 
290 IF G=2 THEN SAVE *"M"; 1 jT$CODE 54784 

,10751: VERIFY *"M" ; l;T$CODE 
300 STOP 

310 DATA 1,223, 4, 17, 103, 250,33, 194, 4, 237 
176.33,230,18,34,108,250,33,114,9,34,115 
250 33,103,250,34,48,255,33,140,251,34,1 

8,251,33,136,251,34,33,251,33,136,251,34. 

40,251,33,140,251,34,55,251,33,140,251,34 

,65, 251,33, 136, 251, 34, 112,251, 33, 140, 251, 

34,137,251,33,251,250,34,168,253,33,167,2 

53,34,112,254,33,209,254,34,145,254,33,20 

9,254,34,205,254,33,251,250,34,20,253,33, 



125, 250, 34 ,139, 250 ,33, 172, 250, 34,161,250, 
33,202,250,34,177,250,33,163,250,34,221,2 
50,33,111,251,34,123,251,33,255,252,34,67 
,252,33,21,255,34,4,253,33,173,253,34,105 
,253,33,91,254,34,110,253,33,185,250,34,2 
05,250,33,167,253,34,22,254,33,167,253,34 
,89,254,33,103,250,34,68,255,62,164,50,13 
2,250,62,47,50,142,250,62,55,50,150,250,6 
2,30,50,157,250,62,23,50,190,250,62,33,50 
,196,250,62,20,50,211,250,62,59,50,224,25 
0,33,10,2,34,23,251,62,142,50,38,251,62,1 
95,50,45,251,62,190,50,53,251,62,212,50,6 
1,251,62,224,50,75,251,62,226,50,108,251, 
62,235,50,116,251,62,224,50,121,251,62,12 
,50,141,251,62,25,50,53,255,0,0,0,0,0,0,0 
,0,0,0,0,0,201,58,71,92,60,50,71,92,33,0, 
0,34,11,92,42,93,92,35,34,93,92,1,224,26, 
223,35,34,93,92,254,248,40,28,3,254,239,4 
0,23,3,254,214,40,18,3,254,213,40,13,195, 
138,28,127,32,49,57,56,51,32,78,77,83,237 
,67,116,92,195,171,251 

320 DATA 42, 0,91, 237, 91, 2, 91,237, 7S, 4, 91 
,120,177,200,16 7,237,82,200,25,56,3,237,1 
76,201,235,9,235,9,43,2 7,237,184,201 

330 DATA 175,55,221,33,144,219,205,86,5, 
201 
- 340 CLEAR ! SAVE *"M" ; 1 ; "extra mc" LINE 
360: VERIFY *"M" ; 1 ; "extra mc" i STOP 

350 CLEAR : SAVE "extra mc" LINE 360: 
VERIFY "extra mc" 

360 CLEAR 31999: PRINT "ALS U DE LIST GE 
ZIEN HEEFT, DAS SUN "": PAUSE 150: LIST 
: STOP 

370 REM CONTROLE DATAREGELS: 

380 LET dataBom=0: RESTORE : FOR a-1 TO 
393: READ data: LET datasom-datasom+data: 

NEXT a: IF datasomO-47013 THEN PRINT "FO 
UT IN DATAREGELS" 



We zijn nu loe aan hoi iKjofiipiofiraiiima. In dil 
ptogiamma ziju niul alio optics aauwezig 
omdat ze niet alle in hoi geheugen passe n. 
Vier oplies. Ie weten die me! de letters c, 
d, f en g moet U las van bet hoofdprogramma 
saven, Voor elk van deze viei "modules" 
afzonderlijk is er voldoemle ruimte in het 

\l,-l Leliulp van de optie y kunt I) zc MERGEll 
liij het hoofdprogramma. Om deze tcden lieh ik 
aan het hoofdprogramma de naam 'TASWORD: 
MERGE' gegeven. Na dus bet boofdprogramma 
in Ee tikl on eesavcd lo hoLhen. meet U 
vervolgens deze modules iotikkeu en save.), 
Hoofdprogramma en modules volgen nu: 



Programma : "Tasword 2 Merge" 



1 RUN PI*PI: DEF FN d(g)=VAL " B -256* IHT 
(g/256)": DEF FN e(g)=INT (g/VAL "256 ">: 
DEF FN m()-VAL "65535"-USR VAL "7962" : 
DEF FN p(x)=VAL "PEEK x+256*PEEK (x*l)" 1 
DEF FN q(y,x)«VAL "31935+64*y+x" 

11 LET h-CODE "@": LET j=FN j(p$): 
RETURN : DEF FN j(p$)-VAL "100*(CODE pS~ 
96.9)" 

2 PRINT InOT PljsS: PAUSE NOT PI: LET B 
S-CHRS PEEK. VAL "23560": INPUT ;: RETURN 



3 FOR i-VAL "23296" TO VAL "23361": POKE 
i.CODE " ": NEXT 1: PORE VAL "23362 ",N0T 
PI: INPUT "Woord? ";aS: FOR i-SGN PI TO 
LEN a$: POKE VAL "2 3297"+!, CODE a$(i >1 
NEXT i 

4 POKE VAL "23297", LEN a$: INPUT "wordt 
: (ENTER - alleen op z.) ";a$: IF a$="" 
THEN POKE VAL "23362", SGN PI: GO TO VAL 
"7" 

5 FOR i-SGN PI TO LEN a$: POKE VAL "233 
29"+l,CODE a$(i): NEXT 1 

7 LET e-USR VAL "64955": LET a-USR VAL 
"64333": GO TO VAL "20" 

10 CLS : LET a-USR VAL "64330": 

20 LET a- VAL "64*INT <a/64+.99)": PORE 
VAL "23658" ,H0T PI: IF NOT a THEN GO TO 
VAL "4" 

25 DIM q${VAL "27"): LET q$=CHR$ VAL "22 
"+CHRS (NOT PI)fCHR$ VAL "4": PAPER NOT 
PI: BORDER NOT PI: INK VAL "4": BRIGHT 
SGN PI: CLS : PRINT FLASH SGN FI;q$: DIM 
qS(VAL "14"): LET qS-CHRS VAL "22 n *CHR$ 
VAL "21"-rCHR$ (PI*PI): PRINT FLASH SGN PI 
;q$: LET m-USR VAL "62957": INPUT a 
PRINT q$: PAPER VAL "7": INR NOT PI: 
BRIGHT NOT PI 

30 LET s-PI: LET sS="Letter? "+STRS FN id 
<)*" OVER "l GO SUB s: IF gS<"a" OR g$>"z 
" THEN GO TO VAL "30" 

40 LET pS-gS: IF pS<>"z" AND P S<>"y" 
THEN BORDER VAL "7": CLS : IF pS="a" THEN 
RUN 

50 GO SUB SQR PI: LET b=VAL "FN p(622!6) 
-: LET u-VAL "54820" 

60 IF pS="m" OR pS-"p" THEN LET 8$-" CAT 
?": GO SUB a: IF gS°"j" THEN CAT SGN PI 

70 IF pS>-"i" AND p$<-"p" THEN INPUT "Ti 
tel: ";t$: IF p$>-"k" AND p$<-"m" THEN 
LET a-USR VAL "59081": LET a-HOT PI 

80 GO TO i-VAL "300 AND INT (i/25S)-5" 

100 REM 

110 LET y-VAL "FN q(l,32)": LET iS-CHKS 
PEEK VAL "32063" 

111 LET c-NOT PI: FOR y=y TO VAL "FN q(3 
19,32)" STEP h: IF PEEK y-CODE "/" THEN 
POKE y.CODE "\": LET c-VAL "(y-31967)/64" 
: LET e$=CHR$ PEER (y+SGN PI): CO TO UPl 

112 NEXT y 

114 IF NOT c THEN RUN 

115 FOR d=c+SGN PI TO VAL "320": LET k$- 
CHRS PEER FN q(d,CODE " ") 

116 LET nS-CHRS PEEK FN q{d,C0DE "1") 
120 IF k$="-" OE k$="+" THEN GO SUB VAL 

"140" 

125 IF k$~"+" THEN GO TO VAL "115" 

126 IF k$="=" THEN LET y-FN qfc.CODE " " 
): GO TO VAL "111" 

130 IF n$="S" THEN RUN 
135 NEXT d: RUN 

140 LET t-=NOT PI: LET at=PI: FOR y-c TO 
d-SGN PI: IF CHRS PEEK FN q(y,CODE "!")-" 
s" THEN LET st-NOT PI 

141 IF CHR$ PEEK FN q(y,CODE "1")-"t" 
THEN LET t-t. + st: LET sS=STR$ at: LET at 
-PI: GO SUB VAL "180": GO TO VAL "16S" 

145 INPUT ;: PRINT y;" ";: IF g$-"b" 
THEN FOR a-VAL "21" TO VAL "54" STEP CODE 
"!": GO TO VAL "155" 

150 LET a-VAL "21+33*(g$-""r"") » 

155 LET aS="": FOR x-a+SGN PI TO atVAL " 
10": LET b$"CHRS PEEK FN q(y,x) 

156 IF <bS>-"(" AND bS<=">" OR b$-""") 
AND (b$<>"," AND b$<>";" AND b$<>":") 
THEN LET a$=a$+bS 



157 NEXT x: IF a$<>"" THEN PRINT a$;: IF 
at-PI THEN LET t=t+VAL a$ 

158 IF aS""" ADD stoPI THEN LET at-st+ 
VAL a$: PRINT "<st "; 

160 PRINT ,: IF gS-"b" THEN NEXT a 

165 NEXT y: LET s$=STR$ t: GO SUB VAL "1 
80" 

170 LET c=d+(k$-"-"): RETURN 

180 LET tt-VAL s$: IF iS-"i" THEN LET tt 
=INT Ut+.5): LET s$-=STR$ tt 

185 PRINT INVERSE SGN FI;s$: FOR 1=LEN s 
S TO SGN PI STEP -SGN PI: POKE FN q(y, 
VAL "3H-33*( E S=""r"")"-LEN sS+D.CODE aS( 
1): NEXT ll RETURN 

200 REM 

210 PRINT " MERGE met optie yl": STOP 

300 REH 

310 PRINT " MERGE met optie yl": STOP 

410 PRINT "NEEM UIT LfM EIGEN 
TASTORD-PROGRAMMA HET PROGRAMMAATJE VOOR 
DE GRAFISCHE CODES VOOR UW PRINTER OVER 
OP DE REGELS 410 T/M 500."- '"HEEFT U 
TOEVALI.IG EEN SEIKOSHA CF Z50X OF SP-180A 
PRINTER, BELT U MIJ DAN EVEN? DAN STUUR 
IK « H1JN MODULES "e" DIE IR VOOR DEZE 
PRINTERS GEMAAKT HEB." 

500 REK 

510 PRINT " MERGE met optie y!": STOP 

600 REM 

610 PRINT " MERGE met optie yt": STOP 

700 REM 

701 POKE x.FN d(b>: POKE (x+SCN PI) ,FN e 
<b): RETURN 

702 POKE VAL "62235", VAL r$: LET c-h*( 
INT VAL aS-SGR PI): LET b=c+FN p(VAL "622 
16"): LET x-VAL "60045": GO SUB VAL "701" 
: IF b$-"" THEN LET b-a-c: RETURN 

703 LET b=h*lNT VAL bS-c: RETURN 

710 INPUT ("TAB ENTER-" ; PEEK VAL "60927" 
i" OF: ")ifl$: IF a$o"" THEN PORE VAL "60 
937", VAL a$ 

720 INPUT "LF ENTER= 1 "irS: IF *$-•"' 
THEN LET r$-"l" 

730 INPUT "le regel:" ■' "ENTER - alles va 
naf regel I ";a$: IP a$="" THEN LET a$="l 
": LET bS="": GO TO VAL "750" 

740 INPUT "t/tn regel: """ENTER = t/tn re 
gel ";(a/h>;" ";b$ 

750 GO SUB VAL "702": FOR n=SGN PI TO 
SGN PI: RANDOMIZE USR VAL "59806": 
RANDOMIZE USR (FN p(VAL "62472")): PRINT 
AT PI*PI,PI*PI;"q - STOP " : LET jc- VAL 
"60049": GO SUB VAL "701": LET c- PEEK 
VAL "62470": IF c THEN LPRINT CHR$ c 

760 RANDOMIZE USR VAL "60038": LET c<- 
PEEK VAL "62471": IF e THEN LPRINT CHR$ c 

770 RANDOMIZE USR VAL "59806": NEXT n: 
LPRINT : CLOSE INOT PI: BEEP SQR PI, PI- 
PI: RUN 

800 REM 

810 PRINT USR u: SAVE t$CODE b,a 

820 PRINT USR u: VERIFY t$CODE : RUN 

900 REM 

910 SAVE *SGN PI;t$CODE b,a: VERIFY * 
SGN PlitSCODE : RUN 
1000 REM 

1010 LOAD tSCODE (a+b),VAL "(FN p(62221)+- 
22)*h-a": RUN 
1100 REM 

1110 PRINT USR u: LOAD t$CODE (a+b),VAL " 
((FN p(62221)*22)*h-a)": RUN 
1200 REM 

1210 LOAD *SGN PIjt$C0DE (a+b),VAL "({FN 
p(62221)*22)*64-a)": RUN 



1300 REM 
1600 REM 

610 DIM r$(VAL "22", SQR PI): LET r-NOT 

r(VAL "22"): FOR y=SGN PI TO a/b: 

IF CHRS PEEK FN q(y,SGN PI)-"*" THEN LET 
r-r'SGN PI: LET r$(r)-CHR$ PEEK FN q( 
y+SCN PI, SGN FI)*CHR$ FEEK FN q(y+SGN PI, 
SQR PI): LET r(r)=y*SGN PI: PRINT r$(r);" 
"|r<r)j» "l 

1620 NEXT y: PRINT FLASH SGN PI;r 
1630 FOR r=SGN PI TO VAL "320": IF CHR$ 
PEEK FN q(r,SGN PI)<>""" THEH NEXT r 
■-.40 LET r-r-SGN PI: CLS : LET i=USR VAL 
!330": FOR Y-PN Q(SGN PI, NOT PI) TO FN 
r.NOT PI) STEP CODE "@": LET AS-CHRS 
PEEK (YiSGN PD+CHRS PEEK (Y*SQR PI): FOR 
q-SGN PI TO VAL "22": IF a$«r$(q> THEN 
NEXT q 

1 LET p=FN q(r(q),NOT PI) 
1660 IF VAL "INT ( (p+1 ) /64)={p+l ) /64 AND 
PEEK {P+l)<>32" THEN LET P=P+VAL "33": IP 
VAL "PEEK (p+l)<>32" THEN LET p-p+ VAL 

: GO TO VAL "1660" 

L670 FOR X-SGN PI TO VAL "31": POKE P+X, 
PEEK (Y+X-UNT PI): PRINT CHR$ PEEK (Y+X+ 
INT PI);: NEXT X: PRINT : NEXT Y: RUN 
1700 REM 

) LET b-b+a: LET p=a/h 
1720 FOR y-SGN PI TO p: IF CHR$ PEEK FN 
q (y.CODE " ")<>"<" AND CHR$ PEEK FN q(y, 
CODE "[»)<>«>" THEN GO TO VAL "1750" 

I INPUT j: PRINT INOT PIsy: IF CHR$ 
PEEK FN q(y,CODE " ")-"<" THEN LET I - 



PIl 



770" 



1 VAL ' 






.770" 



1750 NEXT y: LET p=p+SGN PI: POKE FN q 
,SGN PI), CODE "•" 

1760 LET s$="caasette, diskette": GO SUB 
s: INPUT " SAVE onder naam: ";t$: LET a- 
FN q(p,SGN PI)-b+h: GO TO FN j<"j")-( 
CODE "d" AND eS="c") 

1770 LET p-p+SGN PI: LET w-INT PI: FOR 
x= nl TO xltVAL "30": LET «=w*SGN PI- 
POKE FN q(p,v),PEEK FN q(y,x>: PRINT CHRS 
FEEK FN q(y,x);: NEXT x: PRINT : RETURN 

1800 REM 
HO LET i 



>gina< 



■ibe" 



Tlllj'.'ii 



:al byte s ";ab: POKE i,FN 
l(bg): POKE i+SGN PI, FN e(bg): POKE 

■~~l PI, FN d(ba): POKE it INT PI, FN 
: PORE i-fVAL "4",FN d(ab): POKE 
, "5", FN e(ab): RANDOMIZE USR VAL 
"54784": RUN 

1900 REM 

1910 LET sS-"d-dIskette (microdrive)' 
CHHS VAL "13"t"c=eaesette": GO SUB S: 

IF g$-"c" TBEN GO TO VAL "1930" 

1920 CLS : CAT SGN PI: STOP 

1930 LET sS-"L8neza3in/Snel <l/a)": G( 
SUB PI: PRINT IO;"Kluar? Dan BREAK en 
": IF g$-"l" THEN VERIFY ";" 

1940 PRINT USR u: VERIFY ";" 

2000 REM 

2010 INPUT "Doe de diskette met de 
TASMORD III-tekst in de Disk-drive en 
druk op ENTER ";a$ 

2020 CAT SGN PI 

2030 INPUT "Naam file: ";tS'"Vanaf w. 
regel 7 "jr 

2040 LET p=VAL "31999+64*r" : CLOSE IVAL 
"4": OPEN IVAL "4" ; "m"[SGN PI;tSIN 
2050 PRINT IVAL "4"; 



Ike 



Z060 LET aS-INKEYSf4: IF a$=CHR$ VAL "13" 

THEH PRINT : GO SUB VAL "2090": GO TO 

VAL "2060" 

2070 IF a$-=CHR$ VAL "10" THEN GO TO VAI. » 

2060" 

2075 IF a$-"" THEN RUN 

2080 LET p-p+SGN PI: IF p<VAL "52*80" 

THEN PRINT a$;: PORE p.CODE a$: GO TO 
VAL "2060" 

2085 PRINT '"FILE FULL!": STOP 
2090 LET reut-p-VAL "64*INT (p/64)": LET 
p-p+VAL "64-reat-l+(64 AHD resto63)": 
POKE VAL "23692", CODE " COPY ": PRINT 
INVERSE SGN PI; VAL "(p-31999) /64": RETURN 

2100 REM 

2110 CLEAR : LET a$="TASWORD2 MERGE ": 
SAVE *SGN PI;a$ LINE VAL "2130": VERIFY 
*SGN PliaSs STOP 

2120 LET aS""CODE TASWORD2": SAVE *SGH 
PI ;aSCODE VAL "5*781", VAL "10751"! 
VERIFY * SGN PI;a$CODE : RUN 

2130 CLEAR VAL "31999": LOAD *SGN PI;" 
CODE TASWORD2"CODE : PRINT AT 5,8i;"j| A.J 
. Schoneveld"'TAB 8; "Rooseveltlaan 4"' 
TAB 8;"3844 AJ HARDERWUR-'TAB 8;"Tel. 03 
410-14601" 

2140 PORE VAL "23609", VAL "2": POKE VAL 
"23562", SGN PI: LET a- USR VAL "59081": 
RUN 

2200 REM 

2210 STOP 

2300 REM 

2310 INPUT " CLEAR ";c: CLEAR c 

2320 LET eS-"c-caaaette d- diakette/ 
miccodcive": GO SUB PI: IF g$-"d n THEN 
CAT SCN PI 

2330 INPUT "Noam bytea ";t$ 

2340 IF g$-"d" THEN LOAD *l:t$CODE : 
GO TO VAL "2360" 

2350 LOAD tSCODE 

2360 RANDOMIZE USR VAL "58419": POKE VAL 
"23609", NOT PI: STOP 

2400 REM 

2402 LET a$-"0ut of memory] CLEAR 1 (j/n 
)": GO SUB a: IF gS="j" THEN CLEAR VAL 
"54783": GO TO VAL "2620" 

2404 RUN 

2410 IF FN m()<VAL "1000" THEN GO TO i- 
VAL "8" 

2420 LET s$»" MERGE letter:" : GO SUB 
PI: BORDER VAL "7": CLS : LET t$=g$: 
PRINT J NOT PI;r$: MERGE *SGN PI;t$: 
BORDER 7: POKE VAL "23296" .CODE t$: IF FN 
p(VAL "23730")<>VAL "31999" THEN CLEAR 
VAL "31999 " 

2430 LET B $="Wilt U gelijk daar naar 
toe! ": GO SUB PI: IF g$="j" THEN GO TO 
FN j( CRRS PEEK VAL "23296") 

2440 RUN 

2500 REM 

2510 LET sS=" LIST letter:" : GO SUB s: 
LET p$ =g$: GO SUB SQR PI: BORDER VAL 
"7": CLS : LIST j: STOP 

2600 REM 



Programma : "c" 



200 REM 

205 DEF FN b(x)-FEEK (c+JtJ+VAL "256* 
PEEK (c+x+1)" 



210 LET r=CODE " LL1ST ": LET i=VAL "290 
": LET s$="k-C15/ e -C6O/x-C90": GO SUB PI: 
LET tk-VAL "(900 AHD CODE g$=103)+(565 
AND CODE gS-107)+(l!00 AND CODE g$=120)" 
: LET sii=NOT PI: LET c-VAL "5620B": LET d 
-VAL "FN q(a/64+2,0)": GO SUB VAL "295" 

215 LET g=-SGN PI: LET e-NOT PI: INPUT " 
Naam: ";b$. LET s$-" INPUT telwerk? ": GO 
SUB a: LET tS=g$: LET b$-b$+".": GO SUB 
VAL "285" 

220 INPUT "telw-tkstand: "ig: LET ve-g 

225 LET sn-O: RANDOMIZE USR (c-VAL "16") 
: LET I=SC.N Pl+FEEK e: POKE VAL "23692", 
CODE " COPY ": PRINT £;" ";: IF £>VAL "10 
" THEN GO TO CODE " LLIST " 

230 IF NOT PEEK (c+SGH PI) THEN BEEP SGN 
PI, NOT PI: LET 3n=PI: INPUT FLASH SGN PI 
;" VERIFY anel"" FLASH NOT PI;"Tel werk: 
";g: CLS : PRIHT AT VAL "21", NOT PI ; "Na 
BREAK GO TO i": PRIHT AT NOT PI, NOT PI;: 
PRIHT USR u: VERIFY "; n 

235 LET a$=STRS e+". ": LET d$-"": FOR 1 
=c+SGN PI TO c+VAL "10": LET d$=d$+CHR$ 
PEEK 1: NEXT 1: FOR 1-VAL "10" TO SGH PI 
STEP -SGN PI: IF d$(l>=" " THEN LET dS-d 
$( TO 1-SGH PI): NEXT 1 

236 LET n$="": FOR 1-SGH PI TO LEN d$: 
IF CODE dS(D<VAL "128" THEN LET t»S-nS 
+d$(l): GO TO CODE " LOAD " 

237 CLS i PRINT d$(l>: FOR p-NOT PI TO 
VAL "9": LET v$=SCREEH$ (NOT PI,p): IF p 
>-VAL "2" THEN LET j$=SCREENS (NOT PI,p- 
SGN FI): IF j$-" " AND v$-" " THEN GO TO 
CODE " LOAD " 

238 LET n$-n$+v$: NEXT p 

239 NEXT 1 

240 LET d$=n$+". ": LET 1-FN b(VAL "13") 
: IF FH b(VAL "11")-VAL "6912" AND 1-VAL 
"2-14" THEN LET b$-a$+d$+"SCREBN$.": qqjq 
CODE ■ IF " 

245 LET t=SGN PI: LET e$-"Lengte - "+ 
STRS FN b(VAL "11")+". ": GO SUB VAL "245 
+(15 AHD f-l)+(25 AHD (f-2 OR f=3))+(30 
AND f-4)+(33 AND f-5)": POKE c.CODE " 
COPY ": LET bS-a$+d$+fS+e$: IF NOT t THEN 
GO TO CODE " LLIST " 

250 IF tS-"j" THEN INPUT "telaerki "; B : 
LET g-g-vs: LET g-g-SGN PI 

255 GO SUB VAL "280": GO TO CODE " 

260 LET £$="LIST - "♦STRS FN b(VAL "15") 
+ ".": LET 1~VAL "(FN b(13) AND FN b(13)<- 
9999)": IF HOT 1 THEN RETURN 

265 LET £$=£$+" RUN v. a. "+STR$ 1+". ": 
RETURN 

270 LET f$-("S" AHD f-INT PI): LET h- 
PEEK (c+VAL "14"): LET f$-CHR$ (CODE "@"+ 
CODE " "*(h/CODE " "-IHT (h/CODE " ")))+£ 
$+"(). ": IF £S="A(). " AHD FN b(VAL "II" 
)=8 THEH LET g-VAL dS( TO LEH dS-SGN PI): 
PRINT gi" ";: LET t-NOT PI 

271 RETURN 

275 LET f$»"Start - "+STR$ 1+" . ": 
RETURN 
278 RETURN 
280 LET b$="tw "+STRS g+" "+b$ 

285 LET e-e+SGH PI: IF NOT sn THEN PRINT 
■b$' 

286 IF e>SGN PI AND NOT sn THEN LET e = E + 
INT VAL "1+FN b(ll)/(tk-g+(5 AND t$-""n"" 
))": INPUT ;: PRINT INOT PI;"Spoel naar " 



CODE "ft" AND LED b$>CODE "§"): GO SUB 
VAL "295": POKE c.CODE " COPY ": HETURN 

290 DIM k$<SGN PI, CODE " "): INPUT "tot 
y - "iy: FOR y-SGN PI TO y: LET b$-"": 
LET bS=bS+<" " AND e<VAL "10")+STR$ e+". 
": FOR x-UOT PI TO VAL "31": LET a$= 
SCREENS (T,x): LET bS=bS+a$: NEXT x: LET 
kS{SGN PI)-bS: LET b$-kS(SGH PI): GO SUB 
VAL "280": NEXT y: DIH k$(l,t): GO TO 
CODE " LL1ST " 

295 IF d>=VAL "FN q(320,l)" THEN PRINT " 
Geen plaatal": BEEP PI.PITI: RUN 

296 RETURN 



Programma : "d" 



300 REM 

310 DEF FN k$(y,x)-SCR£ENS (j,x): LET p= 
b+a-SGN Pis LET v-VAL "345": IF VAL "p=> 
FN q(311,l)" THEN PRINT "Geen plants!"! 
BEEP PI.PI'PI: RUN 

320 CLS : PRINT "Als U bij scroll? BREAK 
t, moet u intlkken: GO TO 330."""Dcuk nu 
op een toeta.": PAUSE 0: CLS : LET yy= 
VAL "21": INK SQR PI: CAT SGN PI 

330 FOR y-VAL ''21" TO INT PI STEP -SGN 
PI: LET k$-FN kS(y,NOT PI): IF k$-" " 
THEN NEXT y 

310 IF y<VAL "21" THEN PRINT y: LET yy=y 

345 INK NOT PI: FOR y=NOT PI TO VAL "21" 
: PRINT AT y.VAL "16"jy: NEXT y: INPUT "0 
pmerking: " s b$ s LET b$-b$+" "l INPUT "Eer 
ate regel ";yl 

350 FOR y=yl TO yy: FOR x-NOT PI TO VAL 
"15": LET kS-FN k$(7.*>= LET jS-FN kS(y,x 
-SGN PI): IF k$-" " AND j$=" " THEN GO TO 
VAL "370" 

360 LET bS-bS+kS 

370 NEXT x: PRINT AT y.VAL "15";"*"s 
NEXT y: FOR 1-SGN PI TO LEN b$: POKE p+1 
.CODE bS(l): NEXT Is POKE p+1 .CODE " "t 
LET p-p+ls LET r=VAL "p-64*INT (p/64)": 
LET p=p+VAL "128"-r 

380 IF VAL "p<FN q(310,l)" THEN INPUT "V 
olgende diskette - ENTER"* "Bike andere 
INPUT - RUB "sv$: IF v$-"" " m 
"320" 



) TO VAL 



Programma : "I" 



500 REM 

505 DEF FN x<x)-lNT (x/VAL "8">: DEF FN 
y(y)-VAL "21-IHT <y/8)" 

510 LET o-VAL "530": LET h-VAL "570": 
LET v-VAL "589": LET i-VAL "588": LET 2- 
-SGN PI: GO TO o 

515 GO SUB i 

520 LET s$-"": GO SUB PI: LET q=NOT PI: 
LET p=CODE 8$: LET x-x-VAL "Up=8 OR p-4 
9 OR p-SO) AND x>0)"+VAL "((p-9 OR p-Sl 
OR p-52) AND x<255)": LET y-y-VAL "Up-1 
OR p-50 OR p»51) AND y>0)"tVAL "<(p=ll 
OR p-49 OR p-52) AND y<175)": PLOT x,y: 
GO TO VAL "520»(5 AND p-113)" 



525 GO SUB h: GO TO o 

530 GO SUB is LET s$-"p qdcktfL" 
: GO SUB PI: LET c=CODE g$: DO TO VAL "o+ 
(25 AND e-107)-(15 AND c=lll)+(5 AMD e-11 
2)*(10 AND c"10O)*(15 AND c=102)*{20 AND 
c=99)+(60 AND c-116) B 

535 INPUT " PLOT x ";aS:" y "iy: PLOT 
OVER <a$(SGN Pl)-"o");VAL a$<SGN PI*(aS( 
SGN PI)-"o") TO ),y: GO SUB h: GO TO o 

510 LET r=NOT PI: INPUT "dx ";aSi" dy "; 
dy: DRAW OVER (a$(SGN PI)="o") sVAL a$( 
SGN PI+(aS(SGN PI)-"o") TO ),dy,r: GO SUB 
h: GO TO a 

545 INPUT aS: PRINT AT FN y(y),FN x<x);a 
Ss GO TO o 

550 INPUT " CIRCLE x ":a$:" y "iys" r "; 
r: CIRCLE OVER (aS(SCN PI}="o");VAL a$( 
SGN PI+(aS(SGN PI)="o") TO ).y,r: CO SUB 
h: GO TO o 

555 LET »S-"s- SAVE ]= LOAD 1" COPY ": 
GO SUB PI: IF g$>="s" THEN GO SUB VAL "5 
80": IF g$="s" THEN GO SUB v: SAVE *SGN 
Pl;t$SCREEN$ 

560 IF gS-"j" THEN GO SUB v: CLS : LET z 
«-- SGN PI: LET w-USR u: LOAD *SGN PI;t$ 
SCREENS : GO SUB b 

565 IF gS="s" THEN COPY _ 

566 GO TO o 

570 LET z=z+SGN PI: IF z-VAL "22" THEN 
PRINT INOT PI;"INKEYS": PAUSE NOT Pis LET 
z-NOT PI: CO SUB VAL "580" 

575 GO SUB i: PRINT AT z.NOT PIjxj" "sy: 
RETURN 

580 FOR w=NOT PI TO VAL "21": PRINT AT w 
,NOT PI;" ": NEXT w: RETURN 

588 LET x=PEEK VAL "23677": LET y=PEEK 
VAL "2367S": RETURN 

589 INPUT "Tltel: ";tS: RETURN 

590 RUN 



Programma : "g" 



OFMERKING: 

Overal waar U in di( programma "CSfZE" 
zie! Maan. moel V in blasts daatvan in 
GRAPHIC MODE CAPS SHIFT 8 inlypen, 

600 REM 

610 POKE VAL "23658", NOT PI: LET INK- 
NOT PI: GO SUB VAL "670": GO SUB VAL "686 
": BORDER VAL "7": PAPER VAL "7": GO SUB 
VAL "674": PRINT AT VAL "11", NOT PI;"RTaa 
r -= ENTER"""Ophouden h" 

614 LET x-VAL "5": LET y=SGN PI: PRINT 
AT y.x; FLASH SGN PI;" " : LET adr=VAL 
"225 28+3 2*y+x" 

618 GO SUB VAL "682": IF PEEK adoCODE " 
g" THEN POKE adr.PEEK adr-VAL "128" 

622 IF e$=CHR$ VAL "13" THEN GO TO VAL " 
650" 

626 IF eS-"h" THEN RUN 

630 LET k-CODE B S= LET x=x+VAL "<(k=9 
OR k-56) AND x<8)-((k=53 OR k=8) AND x>5 
)": LET y-y+VAL "((k-54 OR k=10) AND y<8) 
-(<k=55 OR k-11) AND y>l)"s LET adr-VAL " 
22528+32*y+x" 

634 IF VAL "<k>=8 AND k<=ll) OR (k>-53 
AND k<-56)" THEN POKE adr.PEEK adrtVAL "1 



638 IF k-CODE "1" THEN PRINT AT y,x; INK 
SGH PI;" CST.ZE ": BEEP VAL ".I", VAL "12": 
PRINT AT y.xi INK SGH PI; FLASH SGN PI;" 
CSIZE " 

642 IF k-CODE "0" THEN PRINT AT y,x;" "l 
BEEP VAL ".l",NOT PI: PRINT AT y,x; 
FLASH SGN PIi" ~ 



: D 



• bit t 



I VAL ■ 



I VAL 



650 PRINT (NOT PI;" POKE 7": 
"682": IF gS="n" THEN GO TO VAL "610" 

654' IF gS-"h" THEN RUN 

658 DIM b(VAL "B"): LET Ink=SQR PI: GO 
SUB VAL "686": FOR y-SGN PI TO VAL "8 ": 
FOR x-VAL "5" TO VAL "8": IF ATTR (y,x 
J-CODE "y" THEN LET b(y)=b<y)tVAL "2*(8-x 
>° 

662 NEXT n: PRINT AT y ,FI*PI;b<y) : POKE 
n+7,b<y): NEXT y: GO SUB VAL "670": GO 
SUB VAL "674": GO TO 610 

670 BRIGHT SGH PI: CLS : IUK VAL "5": 
PRINT " CSIZE CSIZE CSIZE CSIZE CSIZE 
CSIZE CSIZE CSIZE CSIZE CSIZE ": FOR y- 
SGH PI TO VAL "8": PRINT AT y.NOT PIj" 
CSIZE "[AT y.VAL "9";" CSIZE ": NEXT y: 
PRINT " CSIZE CSIZE CSIZE CSIZE CSIZE 
^SIZE CSIZE CSIZE CSIZE CSIZE ": INK NOT 
" PI: RETURN 

674 LET c-VAL "32i (n-61183) /8" : PRINT e; 
" ";CHRS c: FOR m-n+SGN PI TO n*VAL "8": 
LET a-PEEK m: FOR x-lNT PI TO NOT PI 
STEP -SGN PI: IF a>- VAL "2" "x THEN LET a 
-a-VAL "2"-x: PRINT AT ra-n,VAL "8"-x; INK 
SGN PI;" CSIZE " 

678 NEXT x: NEXT m: RETURN 

68Z PAUSE NOT PI: LET gS-CHR$ PEEK VAL " 
23S60": INPUT ;: RETURN 

686 INPUT INK INK;"Teken: ";mS: LET n= 
VAL "8"*CODE m$+VAL "60927": RETURN 

I de/e eerst peMERGEd 



Ala uitbtelffing van oplie g heh ik c 
zdf'st .indie |>r»ui;iiiiiiia gescliieven, 
de karaktersel van TASWORD II en III kiml 
wijzigeit. Dil programma volgl mi: 



Programma : "CharsTW2/3" 



10 BORDER 7: CLEAR 37887 

20 POKE 23658,0: CLS : PRINT I0;"Z=TASW0 
RD2 , 3=TASWORD3" : GO SUB 280: LET t$=eS 

30 IF t$o"2" AND tS<>"3" THEN BEEP .1,1 
2: GO TO 20 

40 IF t$-"3" THEN PRINT /0;"Doe de diake 
tte met TASWORDIII in de OPUS en dtuk op 
een toets": PAUSE 0: INPUT ;: LOAD *1;"TA 
STA8LE"CODE : GO TO 60 

50 PRINT IO;"Doe de diskette met TASWORD 
II inde OPUS en druk op een toets": PAUSE 
0: CLS : PRINT "Zoek oaam bytes TA 
SWORD2:": CAT 1: INPUT "Ooder welke naam 
staat de machlnetaal van TASWORDII op de 
diskette! ";ni$: LOAD +l;ni$CODE 

60 BRIGHT 0: CLS : PRINT " * * "Een karakt 
er kunt U als volgt wijzieen: net de curs 
ortoetaen of met de unshifted toetaen 5 t 



nder de cursor op 0, i 

70 PRINT •;"HENU:" , '"1 - KARAKTERS WIJZI 
CEN OF BESTUDEREN"'"2 - SAVE TABLE"'"3 - 
SAVE PROGRAMMA" '"4 - KLAAR" , "5 - OPNIEUH 
": PRINT *0;;"Welke keuze?": GO SUB 280: 
BORDER 7: CLS : GO TO aO+240*{ 6 S*="2")*Z6 
0*<e$-"3")*270*(gS-"4")-70*(e$-"5") 

80 POKE 23658,0: LET INK-0: IF t$-"3" 
THEN PRINT (0;"Tabel zien? (j/n)": GO SUB 
280: IF gS="j" THEN GO SUB 310: PRINT 
J0;"Druk op een toets": PAUSE 0: BORDER 
7: POKE 23693,56: CLS 
90 IF eS="h" THEN GO TO 60 
100 GO SUB 250: GO SUB 290: BORDER 7: 
PAPER 7: GO SUB 260: PRINT AT ll,0;"Klaa 
r - ENTER" ""BULP * MENU: h" 

110 LET x-5: LET y-1: PRINT AT y.xj 
FLASH lj" " : LET adr»22528+32*y+x 

120 GO SUB 280: IF PEEK adr>127 THEN 
POKE adr.PEEK adr-128 
130 IF g$=CHR$ 13 THEN GO TO ZOO 
140 IF gS-"h" THEN GO TO 60 
150 LET k-CODE g$: LET x=jH((k-9 OR k-56 
) AND x<8)-((k-53 OR k-8) AND x>5): LET y 
=y+((k=54 OR k-10) AND y<8)-((k=55 OR k=l 
1) AND y>l): LET adr=22528+32*y+x 

160 IF <k>=8 AND k<-ll) OR <k>-53 AND k 
<=56) THEN POKE adr.PEEK adr+128 

170 IF k=49 THEN PRINT AT y,x; INK 1;" 
CSIZE ": BEEP .1,12: PRINT AT y.jc; INK 1 
; FLASH 1;" CSIZE " 

180 IF k-48 THEN PRINT AT y,x;" ■: BEEP 
.1,0: PRINT AT y,x; FLASH 1;" " 
190 GO TO 120 

200 PRINT JO;" POKE ?": GO SUB 280: IF g 
S-"n" THEN GO TO 240 
Z10 IF gS-"h" THEN GO TO 60 
220 DIM b(8): LET ink-2: GO SUB 290: FOR 
y=SGN PI TO 8: FOR x-5 TO 8: IF ATTR 
(y,x>=121 THEN LET b(y)-b(y)+2-(8-x) 

230 NEXT x: PRINT AT y,10;b(y): POKE nty 
,b(y): NEXT y: GO SUB 250: GO SUB 260 
240 PRINT AT 13,0;"nULP + MENU: h": GO 
TO 80 

250 BRIGHT 1: CLS : INK 5: PRINT " CSIZE 
CSIZE CSIZE CSIZE CSIZE CSIZE CSIZE CSIZE 
CSIZE CSIZE ": FOR y=l TO 8: PRINT AT 
y,0;" CSIZE ";AT y,9;" CSIZE ": NEXT y: 
PRINT " CSIZE CSIZE CSIZE CSIZE CSIZE 
CSIZE CSIZE CSIZE CSIZE CSIZE "s INK NOT 
PI: RETURN 

260 LET e=32+(n-38399*{t$-"3")-61183*<t$ 
-"2"))/8: PRINT c;" ";CHR$ c: FOR m=n+l 
TO rH-8: LET a=PEEK id: FOR x=3 TO STEP 
-li IF a>*=2"x THEN LET a-a-2"x: PRINT AT 
m-n,8-x; INK 1;" CSIZE ": REM 61183 bij t 
w2, 38399 bij tw3. 
270 NEXT x: NEXT m: RETURN 
280 PAUSE 0: LET b$-CHRS PEEK 23560: 
INPUT ;: RETURN 
290 IF t$-"3" THEN INPUT IRK INK; "CODE : 
";CODE: LET n-8*CODE+38143: RETURN 
300 INPUT INK ink;"Teken: ";m$: LET n=8* 
CODE mS+60927: RETURN 

310 BORDER 6: PAPER 6: BRIGBT 1: CLS : 
FOR c=33 TO 255: LET c$-STRS c: LET n=8* 
c+38143: FOR y-1 TO 8: POKE USR "a"-l+y,l 
28+PEEK <n+y): NEXT y: PRINT INK 0;CHR$ 1 
44; PAPER 7; INVERSE l;<c$ AND INT {e/10) 
=c/10); INVERSE 0;(c$(LEN cS) AND INT {c/ 

27 



10)<>c/10) i: NEXT c: RETURN 
320 IF tS="2" THEN SAVE *l;m$CODE 5478',. 

10751: VERIFY *ltin$CODE : GO TO 60 
330 SAVE *l;"TASTABl.E"CODE 37888,6656: 
VERIFY *1;*'TASTABLE"C0DE : GO TO 60 
3'.0 CLEAR : SAVE * n ra"; 1 ; "CHARSTWZ/3" 

LINE 10: VERIFY *"o" i lj "CHARSTW2/3": GO 

TO 60 



Handleiding bij het programma 



Als Iaaistc pKigraiinria. lid progiami 
he! Iiooldprogramuia word! geladen: 
progrnmmaal je weglaien als U aan 1 
programma de n [in ill "luii" in plants 
"TASWORD 2 MERGE" gerftl) 



Programma : "run" 



10 PRINT AT 5,8j;"8 A.J. Scboneveld 1 
8i"RooEevelt:laan V TAB 8;"3844 AJ 
HARDF.PWIJK"'TAB 8;"Tel. 03'i I0-U601 - 

20 LOAD *l;"TASMORD2 MERHR » 

30 SAVE *l;"run" LIKE 10 

40 VERIFY *l;"run n 



islol 



1. lie! menu van deze hasir oveibrengen iianr 
de iweede hulppagina. Dus lees niet verdei 
als dal nog rue I pebeuiri is. Di( menu t/ie 
hierondei ) mod U eersl mel Tasword inlikkeii 
Jat U precics do/i'll'de opmaak als 






;cher 






2 regels laug. 



de 



llet overbieiigcn enal nls volgl: Druk 
aclileiecuvulaens in: SI Ol'. ENTER en s; geef 
op de INPUT "beginndres" als anlwoord: 
EN n(r.l). waarbij U voor t moel invullen : 
lid nummei van iW tekMirael waaiop dit menu 
beginl. Op de INPUT "bestemmines-adres - aeefl 
U lief anlwoord: 56320. Op de INPUT "aanlal 
bytes" geefl U he! anlwoord: 1408. Nu is de 
tekstverwerker klaar en kunl U de matliinelaal 
voor de Iweede keer saven (regel 1120). Hier 



TASWORD TWO -MENU. 


ELKi 


LETTER IS EEN BASIC-BLOK 


a=naar tekst 




b=optellen 


*) c=headers cassette naar 


tekt 


t *> d=CAT disk./md. naar tekst 


e=pr intercedes 




*) f=tekenen 


*) g=karakterset wijzigen 




h= tekst printen 


i=SAVE tekst cassette 




j=SAVE tekst diskette/rad 


k=LOAD tekst normaal 




n=MERGE normaal 


l=LOAD tekst snel 




o=MERGE snel 


m=LOAD tekst diskette/md 




p=MERGE diskette/md 


q=posten rubriceren 




r*posten selecteren en SAVEN 


s=geheugen copigren 




t=CAT disk./md. of cassette 


u=TASW0RD III -> TASWORD II 




v=SAVE programma diskette/md 


w=STOP 




x=Beta Basic 


y=MERGE module 




z=LIST module 


*) niet aanwezig, moet 


van 


de diskette/microdrive worden 


geMERGEd met optie y. 






DRUK OP 


DE 


ENTER- TO ETS 



Het eersle wal up vail bij deze versie van 
TASWORD [I, is wal er gebemt als U de 
STOP-loels indrukl. U krijgl niet een norn 
menu le zien, maar U belandl op de tweed. 
HELP pagiua. die U voordieo alleen na lyj 
van EDIT /EXTENDED MODE le zien kre 



Als U enige lijd met TASWORD II gewerkt hebl. 
zijn de oorsprortkelijke HEI.P-pagina's 
eigenlijk oveibodig tcmn den. En mnclil U ids 
vergden zijn, dan kunt V hd altijd nog 
opzoeken in lie! liandboekje. 



Deze versie van TASWORD tl heefl vele extra 
mogelijkheden gekregen. Deze vragen naluurlijk 
estra geheugenriiimte. De programmeurs van iiel 
oorspronkeli|ke program in n /.jn yelukkig nopal 
kwislig met de bescbikbare gcheugenruiuile 
omgespiongen en we fcondcii de /.ask daatdoor 
behootlijk cnni[iri m l-i en: hnee INKEYS- roulines 
werden vervangen door simpcle INPUTs: 
geiallen werden . . j - de Ivkeude /.ninice manier 
weergegeveu: VAL "getal". CODE "d" (voor 
100), NOT PI fvooi (I) enz. tNvdr : n6g 
zuiniger is BIN i.p.v. NOT PI) 

Maar loch kwamen we noc geheugenruiiule tekorl 
voor alle uieuwe m„gelii kheden. Daarom is 
beslolen hel menu nit hel Basic- gedeelle te 
sclirappcn en hel naar de Iweede hulp-pagina 
over te brengen. Hieraan k lee ft een nadeel: U 
kunt niel onmiddelli j k ilk- letter van uu keuze 
iudrukken. maar eersl moel U ENTER indrukken. 
Normaal koml U dan in lie leksl tenig (en dal 
gebeurl nog steeds als II via EDIT/EXTENDED 
MODi- up de menupagina henl belaud), maar uu 
koml U in hel basic- programma (eiech! via een 
van de 26(<) fcenzemuselijkheden. Dus 
_achtereenvolgens: STOP. ENTER en de letlM 

Mel behiilp van hel programma "extra roe* beef! 
I' ook de eersle llll. I' panina veranderd (druk 
maar eens op EDIT!). Hiw zijn drie machine- 
laalioulines onderKebiacht; een lange van 
1330 byles. en Iwee korle van resp. 33 en If) 
byles. 

Die van 1330 byles zorgl ervoor dal iiel saveu 
naar en hel laden van tape Iwee maal zo soel 
geschiedl. Als U de listing besludeerl (o.a. 
S10 en 1110) dan ziet U dal SAVE en LOAD 
worden voorafttegaan door PRINT USR n (waarhij 
u-WSJII), Ilienuee slell U de TURBO- routine in 
werkiug. 

Die van 33 byles dient ervoor om deleu nil 
het geheugen naar een andere plaals te 
kopieren (oplie s). Dal is vooral nullig als 
hel slukken leksl betteil die niel op de 
norniale plaats staau. inaai by. op de 
hulp-pagiiins. U moet dan wel nelen dal de 
eersle liulp-pngina loopl van de adresseu 
54784 lot 56319 en dat de tweede hulp-paeina 
loopl vau 56320 lol 57727. Gerekend vanaf 
adres 32000 zriudeii dil de rebels 357 l/m 380, 
resp. 381 l/m 402 zijn. Maar die kunt U niel 
vanaf het lociseubovd herviken (U koml niel 
verder dan regel 320 oftewel adres 52479). In 
repel 1 van hat procrnnniia ziet U een DEF FN 
q() die U dit rekenwerk bespaari: als U lie) 
iiiinimer van de regel en van de kolom opgeefl, 
berekeul deze DEF FN het oveieenkomslige 
adres. In verscliilleude ...plies van hel menu 
word! van deze DEF FN gebruik gcmaakl. 

L>e rou 



Om verderc gehcugenbespariug le bereiken is 
voor een uioditli.irc progiamma-opbouw gekozen, 
Elke module beginl bij een reeelnummer dal 10 
boven een honderdtal ligt en bij loop) 
maximaal door tot hel volgende lumderdlnl 



(dus hv, 110 lol 200, waarna op regel 210 een 
volgende module beginl). Als U een letter uil 
het menu kiest, dan Word I deze omgerekend lol 
een regelnummer j, waarna naluurlijk de 
opdrachl volgt: GOTO j. Dit is de korlst 
mogelijke manier om een menugestuurd 
programma le maken. Zo koml de letter a 
overeeu mel regel 10, b mel 110. c met 210 
enz. t/m regel 2510 die overeenkoml mel de 
letter z. Deze berekening geschiedl weer mel 
een DEF FN (zie DEF FN if) in regel 2) Hel 
was daatdoor heel gi-makkelijk om ook de oplie 
"LIST module" te creeren. Als U deze oplie 
kiesl. dan komen 11.1 ENTER de desbelreffende 
regelnummcrs in beeld. 

We bespreken nu de verschillende oplies 
afzonderlijk. Niet al deze modules passen in 
hel geheugen. Enkele ervan moeteii geMRRGEd 
worden (in hel programme van microdrive of 
diskette, maar U kunt dil gemakkelijk 
veranderen in MERGE van casselte), 

a=naar Ickst 

Dil behoefl natuurlijk geen uilleg. Will U 
builen hel menu om teiun nasi de leksl, doe 
dan RUN ENTER. 

b=optellcn 

Als U de kolommen 22 l/m 31 en 55 l/m 64 van 
een aaulal op elkaar volgende regels alleen 
maar pebruikl hebl voor getallen (of korle 
berekeuingen van niet meet dan 10 tekens), 
dan kunl V deze getallen of de uilkomst van 
de berekeniugeu door de computer laten 
oplelleu. Pas op voor tauten, want de kans Op 
de "Nonsense in BASIC"- foulboodschap is 
groot, De rest van de regels, d.w.z. de 
kolommen 1 l/m 21 en 34 l/m 54 kunt U 
getnuiken voor tekst. De kolommen 32 en 33 
moet U echler vrij laten. Hieronder volgt een 
voorbeeld. Kies nu de oplie b en geef op 
vanaf welke resteJ ei opi:ck-ld moet worden en 
of de berekening alleen in de kolom links, 
alleen in de kolom reciits of in beide sameu 
nioel plaatsvinden. 

De berekening gaal door lol de compuler Iiel 
tekeu =. + of S in kolom 32 nantrefl. Bij = 
of 1 koml de som le slaan. Zolang liij niel 
hel teken S tegenkoml. gaal de compuler een 
volgende serie pelaHen oplellen. Mel leken ^ 
werkt net zo als =. maar nu koml bier ecu 
lusseiilolaal le slaan. waarbij dan de vogende 
geiallen worden njigeleld Als de computet bij 
hel tekeu % of op regel 320 aankoml. dan 
word! er een RUN uilpevoerd en koml U in de 
tekst terug en kunl U hel anlwoord bekijken. 



Eer 






t dal 



het beginl in kolom 33/34 mel lb. Het lekci 
belekenl dat de compuler vanaf daar moet 
begiunen op le lellen, De b belekenl dal de 
geiallen in beide kolommen lot een lolaal 
otden opgeteld. Wilt V de opt*"" 



allee 
geschieder 

dc'koloimi 



- of r 



I U ii 



1 l.n,-i 



compule. dan kan doeu is hel beeldscherm n 
SCREENS jiriiislen en Iiel resullaa! in de lek 
POKEn. In dat geval moel u (oa BREAK en 
GOTO i) opgeven boeveel namen van files e 
hel beeldscherin staan. 



Salaris 
reiskostenvergoeding 

oieuw huis 
uitkomst 



123456 >Zwitserse Franks 1 .38*842 

52*45. 65< gemiddelde (Sl+473)/2 

3.8e5 >3e machts wortel 23456"(l/3) 



c«headers cassette a 



r lets! 



In dit onderdeet leesl de Spectrum de headers 
van de files on tape en breng! de gegevens 
van de header over naai de tekslpagiua's. Op 
regel 236 word! een berekeningetje llilgevoerd 
om te mclden nnar welk nummer van hel telw 
op de recorder U moel doorspoelen om de 
volgende header te vinden. U zult deze regel 

telwerk van uw recorder. Als ik een leksl of 
een prog ram ma wil saven op de band. laal ik 



a laal ik de SAVE-regel 



LOAD "telwerknurrane 
Bij herhaald saven heb 



DATA a(): SAVE enz . 



reb ik dan nog hel voor- 
aeel dat de lite steeds opzelfde plaals op de 
band koml te staan. Een nndere method? die ik 
vaak loepas is: een band hetemaal nummeren 
(duur! voor 2 kanten van een C60 band we] een 
our). Ik heb daar ecu piuniannnaal je voor met 
230 DATA voor waarden van a(l): 

10 DIM a(l): FOR n-1 TO 2: RESTORE: FOR 
a-1 TO 230: READ a< 1) : POKE 23736,181: 
SAVE STRS a(l) DATA a(): NEXT a: NEXT n. 
20 DATA (hier staan 230 telwerknummers 
tussen korana's) 



Nu hoefl B : 



.■eds nar. 






hel telwerk op te 
let telwerk zijn 
immers op de band eekopieerd. In deze versie 
van TASWORD heb ik de mogelijkheid inge- 
bouwd dat het teliverk aulomatisch wordt 
gelczen met behulp van o.a. deze number 
arrav. U moel dan "n" antwoorden op de vraag 
INPUT tw7 



d-CAT diskettes naai lekst 

Dit is duidelijk 

e-piintercodes 

Rehalve de codes finer bedoeld voor de 
Seikosha UP 25QX) wordl ook de betekenis 
ervan afgedrukt. Als U anderc opdraclilen aan 
de printer geei'l dan hier afjiedrukl wordt, 
kunl U in de programmaregels van module e 
veranderingeu in de af le driikken tekst 
aanbrcnjien. I >e mopelij klieid om de Inlerface- 
codes le veranderen. werd geschrapt. Als U in 
de listing van uw vorige Tasword- versie 
kijkl, weel U meteen op welke adiessen LI de 
codes moel POKEn. Kies dan oplie w (STOP) en 
doe de POKEs vanuit direct mode. 

Mekenen 

U ziet op de INPUT-iegel een klein menuutje 
staan : p^PLOT. d=DKAVv\ c=c:iRCLE. l=hel 
ahliukken van leksl bij de hllidige 
PLOT-posilie, k=klaar, l-RUN, q-tekenen me I 
de cursorloelsen en mel de loelsen I t/lti 4 
(voor schuine lijnen), me! q ook weer terug 
uaar hel menuutje. Als U bij PLOT of DRAW de 
x-coordinaat voor a f laal nanu dooi de letter 
o. dan wordt er OVER 1 liclekciul. STOPl U bij 
DRAW in INPUT, en geeft V dan in: 
LET r=(de door U gewenste vaarde) 
sevokd door CONTINUE en Enter, dan wordt na 
de INPUT een gebogen lijn getekend. 

g-karakiersct wijzigen 



8 brengl U de cursor op he! gewensle bil 
hel leken. Met en 1 wordl dene bil op 
resp. 1 gezet. 

h-lekst prinlen 

i=SAVE leksl cassette (TURBO) 

j SAVh teksl diskette/microdrive 

k— LOAD lekst mel normale snclheid 

n=MERGE idem 

l=I.OAD lekst snel idem 



o=MERGE idem 
m=LOAU teksl diskcite/microdrive 



r=po5len sclecteren en SAVEN 

Siel dat U de tekstverwerker gebrutkl om uw 
finauciele administrate bij le houden en dal 
U daarin posten hebl staan die U uodig hebt 
voor uw belaslingaongifte. waarvoor U ook een 
tekstfile op cassette of diskette hebt staan. 
U kunt nu deze posten selectief op diskette 
of cassette zetten, U geelt deze posten dan 
aan (zie bij b) door in de lege kolom 32 
(voor de posten links van die kolom) hel 
tekenlje < te zetten en in de lege kolom 33 
e posten rechls} lie! leken 
■"--I U nu optie r. dan • 
man de tekslfile ven 
oel U wel lege ruimte over 
vervolgens gesaved onder een door 
en naam. Vervolgens laadt U deze 
in (optie I of n" 



zetten. Kie 
(daarvoor n 
U op te ge- 






minating file b 



q=posten rubriceren 

U raoet zorgen dat u lussen de verschillende 
rubrieken van uw belastingfile lege regels 
hebl. want dnar komen nu de geselectcerde 

Dat doet U zo: aan het begin van de diverse 
rubrieken plaatsl V een sterrelje op kolom 1 
en 1 regel lager, op de kolommen 1 en 2 twee 
letters ids naam van de rubriek. Deze zelfde 
letters zet U nu voor de posten die U als 
eerste in de tekst geladen hebt. Als U nu 
oplie q kiest. dan komt LI in de teksl 
terecht. Druk nu op STOP en U ziel voor uw 
oeen hoe de posten door de computer worden 
gelezen. Na afloop wordt er auiomatiscli een 
RUN uitgevoerd en U ziet dan dat de posten a 
de goede plaats gezet zijn. Teveus is daarhij 
automalisch de in b besproken opmaak der 
kolommen gerealiseerd. 

Hier volgt nu een voorbeeld hoe U de 
rubrieken moet anngeven (ik denk dat U de 
afslanden tussen de verschillcnde rubrieken 
wel groter zal maken dan hier het gevni is!): 



Zie de algemene inleiding. Hiermee heeft LI 
ook hel menu gecopieerd iiaar de tweede 
hulppagina. 

NCAT diskelle of cassette 

u=TASWORD in -> TASWORD U 



v=SAVE program ma diskelle 

De bytes moet U apart saven met: 

GOTO" 2120 (of met COHTINUE) 

In hel programma is nl. ook voorzien dat U 

niet de machinelaal van Tasuord naast de 

BASIC in de computer hebt zitlen. maar die 

van BETA BASIC (zie s). 

w=STOP 

x=Beta Basic 

Als LI veranderingen in de listine wilt 
aanbrengen, is BETA BASIC 3.0 vrijwel 
onmisbaar. 1.1 moot bij de?e oplie opgeven op 
welk adres RAMTOP moet komen le staan. 
Weet L' hier geen weg mee. laal hem dan maar 
gewoon op 31999 staan. Vervolgens moet U 
opgeven onder welke naam de byles van BETA 
BASIC op de cassette of op de diskef ' 



I RUN doenM 

U kunt nu naluurlijk he! programma n 
lopen. U kunl alleen aan de listing w.er 
Met Beta Basic kunt U m>k eede.llen i 
listine saven. U zou alle modules apait 
kunnen saven. Als U Beta Has.c fund., 
gebrtiiken, doet U dan: 
hERGE*l; "regel 0" 



I la leu 



a afli 
DELETE 



|..... r 
TO ( 



Dan moet U naluurlijk wel regel van BETA 

BASIC geSAVEd liebben. Dal kan als volgt: 

HEW 

en vervolgens 

SAVE *"tn"il; "regel 0". 



GIFTEN 

BEROEPSKOSTEN HAN 

BEROEPSKOSTEN VROUW 

DIVIDEND 






cirtrldm 



Heb jij nou ook. dat sectoren 
van cartridges plotseline 
verdivijiieii'.' "File not found' 
of 'Verification failed' slaat 
dan onder oji net sclierm. Om 
hel probleem nog erger te 

'- —n file van 20 K op 



da! 






aarop nog 23 



Pit laalste doen we dus zelf. 
met dit programma. Lees eerst 
liet tetiriiiksvomschrift, dat 



; 1 stopl. Hel 
volet, wordt 



spaiiiu-nde adventures (of wat 
men ook aan hel doen was, mar 
me! kon doen omdat de 
cartridge een enge ziekle 
kreeg)." 

Hekias gaat er nauwelijks een 
dag voorbij. dat ik dit 
I'li'fiiiiiiiiu iiie! nodig heb. 
Cartridges worden mi eenmaal 
2iek. net zoals mensen 
verkoudeu worden. 

Wal dit programs* doel is nu 
duidelijk. Hoe di! gaat leg ik 



uaam. " CLEAR er 
ding. CLEAR Minis op de X 
stanl. (Inlvpen: THEN X. shift 
5, shift 0. shift 8, In regel 
220 en -ISO doe je dit dus.) 

De listing is bij lange na 

afgcdrnkl wordt. Beta Basic 
3.0 kail echier listings super 
netjes prinleu. Mel nog sen 
paar trues gaat de listing 
vervolgens ridiling Tasword 
II. Daarna wat schaven. en 
lie: ook op de Spectrum ziju 
nelte listings mogelijk. 



Je moet zelf kijken, 
hel sclieidingsteken ': 
invoegt, Deze tekens slonden 






r Beta 



c 3,0 
af. Als 



drukt z 

lip geef ik n 

een statement geen ':' konit, 

Maar als lie volgende regel met 

LET of Sets deraelijks begin t 

komt er wel een V. Spaties 

It u linen wegaelalen worden, 

behalve tuuen 

aanlialiiigslekens. 

Voor alle duidelijkheid: dit 
piogranim.i draail op een 
Ktaiulaiird Spcclntni. /under dat 
Bela Basic nodig is. 

In regel 3D worden de letters II, 
U, C, E. F. L en S omlijsl met 
INVERSE- en TRUE VIDEO. 



Id 



221! v 



Chan geladen met he 
begin. idles van eeu Mdrive- 
channel. Even kijken sva.u de 
map is, eu dan vrije sectoren 
tellen. 

Deze sectoren worden gevuld 
in el nlleniEial ^.palies. Daama 
kijkt CAT 1 of er nog meer 

worden allem.ial wegceyuh enl 
(regel 370). Het verraad zit 
m in PRINT ...;#4;at 



Op regel 39U word! een kleiue 
matliinetaalroiiline in de 
print- battel gezei. waarmee 
naar een zelf le kiezen sector 
pe-* lit even kaii worden. De 

lelijke file ' CLEAR error* 

wordt gelezen. eu als een 
seclor niet klopl. wurdl in 
■1211 de sector overgeschreven 
met CIIRS«))i"error". 

Hel gebruik van de printer- 
buffer belekent dat 128K- 
gebruikers voor gebruik van 
dit piogramma. eerst in 
48 K- mode moeten schakelcn : 
deze buffer wordt namelijk ill 
de 128K-mode voor andere 
doeleinden gebruik], 

CAT keni geeu files die mel 
C'HRJ(O) beginnen, dus deze 
sectoren rijn effectief weg. 

WAARSCIIUWING: 

Bij typeioulen kunnen er gekke 
dingen met Je cartridge gaau 
gebeuren. Uitlesten op een 
cartridge zonder waaidevolle 
I .-■■!. i dus 



Ik laal not.il u.iai i1i.ni-.. 
poken en peeken Hel rou 
ver voeicn om dil alleniaal 
bier uil le leggen Meer ku 
je lezen in "Masli 
Microdrive" van A. Pcnoell. 



ZX 



Hie. volgl de 1 



i.re ddsin 



y-MERGE module 

r LIST module 

Is reeds bcsproken. 

ii iniiclitingen of suggesties 
r verbetering kunt U mij 

bereiken via de Sinclair giils. 

Een verzoek: indien U zelf 

mderingen in lift p roe mm in a 
:irengt waarvan U verwachl 

voor aiidere gebruikers, 
ui u dan het verbeterde 

"ng of op diskette of op 



GOSH' 
TTiSTT 



ldlU'1,1 c 



Na laden van het programina, 
in vooraf gekozen 
woord op he! 
gesclireven. Dan vraagt 
de computer <>l je al weet welk 
woord het was. Een aJs 
anfwoord. stopt hel program ma. 
Een N. en je krijgt hei woord 
nog eens te zien. Een J en je 
kunt het woord ii 



■ iilypei, 



Oni zelf wooidei 



L' vmiiyi 



SPECTRUM COMMUNICATIE MET IBM (EN 
COMPATIBELEN) VIA RS232 INTERFACE 




In hel vorige arlikel over 
RS232-communicalie hebben " 
pi iPiliTimiii.-i't gepublicecrd. die 
met elkaar communiceerden. D 
[uoHiiiium.i's in dit deel zijn 
eigenlijk meer 'utilities' 
voor hel verzenden van 
komplete gegevens-bestanden i 
programma-beslanden. 



(sekwentieel) IBM directory- 
bestand, vcrzonden door het 
crop volgendi- IBM propauur 
De oolvangen gegevens wordt 
op hel scherm afgedrukt. 



kunnen dil doen door aan het 
prograinma de vnlgen.de regels 
lae te voegen : 



OPMERK1NG : 

1NKEYS #4 word! gebruikt 
on) teken per teken in le 
lezen, totdat we CHR$ 255 
lazes, dal bel einde aangeeft. 

POKE 23692,255 zet de 
systeem-variabele SCR_CT 
(SCRoll Counter) op 255, 
zodat de vraag 'Scroll V 
nier steeds weer op hel schen 



Hel IBM - [iTi-.t'i .inuii;i 
"CHILD PROCESS" i 
DOS-progiamma om 



GWBAS1C staat dit loe, 
met de instructie SHELL (op 
regel 80). Regel "0 is nil 
enigsziu* uili'L'I'reid met de 
optie CS600. Deze uitbreiding 
houdl de verbinding in stand, 
mg de Spec 



gere 



mgen. 



CS is de afkorling van Clear 
to Send. 600 is het aantal 
seconden dal de verbinding 
wordt open gehuu den. Wanucer 
deze tijd wordt overschreden, 
verbreekl het IBM- programma 
de verbinding. Deze optie 
bestaat niet op de Spectrum. 



■ c : \5pec iam\o r rl i sr . r, 



Het volgende Spectrum -program - 
ma zendt een programma-lisling 
naar de IBM, die hem op hel 
scherm afdrukl, naar de printer 



De te verzenden listing 

aan het no volgend program 
(Beta BASIC) geMERGEd, 
en de listing word! naar de 
IBM verstuurd. 



rdl 






De volgende twee program 
doen in feite net hetzelfde 
maar dan in tegengestelde 
richling. Nu wordt er 
IBM- prneramma verz 
dil moet dan als programma i 
de listing opgenomen worden 

Het probleem dat hierbij korr 
kijken, is dal bestanden en 
programma's bij de Spectrum 



IBM wel het geval is. 
We hebben dit probleem 

op le nemen en vervolgens dooi 
middel van een slim me Beta 
BASIC- instruclie in de listing 



CA5PE" | w"\rB>iJ.a 



S KEYIN : 
die ii!.! -I. i het mogelijk on 
string in een listing op te 

v gegenereerdf 



['io.Lirni 



a beva 



regel g 
Dit 



;bben 



LET T»= STM(rcoel )*• REM *+T* 

zorgt ervoor. da! de juiste 

i '.i:imiii.n. :':i i;ni!'.,ii'.n - k I 

word! en KEYIN T$ voegt 
deze tegei toe aan het pro- 
gramma. Vervolgens wordt bet 
regelnummer met 10 verhoogd. 

Beperkingen zijn dat bet 
IltM programma niet raeei 
[iri-iin;ifiiili;irt'Ei-1s mag lievaMcn 
dan de Spectrum aankan. 
Eventueel kan de automatische 
regelnummering van 10 verlaagd 
worden (regel 9960). 



Het [BM-programma moet me 
/C: optie gestart worden. vlak 
voordat het Spectrum -program 
geRUNd wordt. omdat ze voo: 
een grotere conimunicalie- 
buiter zorgt. 

Het overgeseinde Spectrum - 
programma kun je best eerst 
door middel van een ASCII- 
tekstbewerker "oppoetsen" : 
lege regels (regelnummer plus 
een spatie) zijn bijvoorbeeld 
segestaan. Seinfoulen 



koi 



raktiscn met \ 

n kui 



Het IBM-programma npent ee 
welk BASIC- program ma als 
input-bestand (of een Pascal-, 
COBOL-, DBase III- of 
C-programma. zolang liet maa 
in ASCII is weggeschreven), 
leest regel voor regel in en 
verzendt deze regel dan naar 
de Spectrum. 



De mogelijkheden om uw Spec- 
trum aan een IBM (of iets 
anders) te koppelen via de 
RS232. zijn vnjwel onbeperkt. 
Nict allcen gcgevensbeslanden 
of programmabestanden, maar 
ook communicalie-spelletjes 
(ik denk aan 'The Net Game', 
broadcasting en groiere nel- 
werken met meerdere Spectrums; 



Voor informalie. suggesties, 
viagen en (irohlemen. kun je 
mij kontakieren via de 
Sinclair gids. 



(dankzij de Disciple Nie 



Gordon Technology gekomen tot 
versie 3b van het GDOS. 
Een van tie opvallendslu 

van de mogelijkheid om 
'Snapshots' af (e breken, 
waarliij !iel 'snapshot' ook niet 
in de Directory van de seliijl' 
word! opgenomen. Kn LI knnl wee 
vetder met Uw programme. 



(bro 



Disciple Nie 



AUTOLOADER voor Disciple 
geschreven door A. Hoi 
iL.rpntiliceerd in Disciple 
Nieuwsbiief 4. 

Vele Disciple gebruikers 7ijn 
op zoek naar een run- program - 
ma om na het opstarlen van hei 
sysleeni, vanuil e 
een progiammn t 



l.„l,[; 



Dil autoload programina lieef 
bovenin een slatusbalk met de 
oplies LOAD. ERASE en 
CAT !. Een cuisorbalkje 
kan op een van deze opties 
Hirp l.i.i [M worden met behnlp Va 
de loetscn 5 en 8 of een 
Kempstnii compatible joystick. 
Als U de optie Load of Erase 
kiest en daama de joystick 
naar beneden beweegt (of toets 
6 indrukt) dan beweegt het 
Iweede cilrsorbalkje zicb over 
de progiammanamen. D.m.v. 
een druk op de spatiebalk kan 
de juiste kenze worden gemaak 
Heeft U een 128K Spectrum en 




vilt lie 



r de c 



Wei kent het 




a een 


beperking: e 


mogen natuurlijk 




ogramma 








:ro!1 


?' boodschap 


vermeden 


wordt. 



Dit A4-CAT programma verzorgl, 
zoals de naam al zegt, een 
printeruildraai van de 
directory op A4 formaal. Nu is 
djl natuurlijk al mugelijk met 
h«t commando CAT*!.: 



de o 



Mle d.i 



punier wordl gesluuid Dit 
programma geeft een Cat m 
uilgebreide informatie. 
De volgende gegevens word 



r de 



erbij geiel als hel progra 
ma officieel mel mee< 
besraar. 
■ (Ti) De (rack waacop het 
ste h]uk van bet program 



: Mok v 



i hel program 



5 (At) Hel lotaal aanlal sec - 
(oien dat bel programma 

6. (Type) Het soorl programma 

7. (Parameters) De parameters 
voor codeblokken en arrays 
zoals starladies en lengle. 

8. ( ) Indien aanwezig de 
startregel in Basic. 

Voor OPENlype files slaal de 
k-nglc direct acliter lie I type 
vermeld, De rest mag genegeerd 



I programma koml nil de 
sciple Nieuwsbrief no. 4, 
is geschreven door P.Faas. 



n A4-CAT PLUS: 



Indien U gebruiker benl van . 
Disciple doel U er versl;in.lii> 
aan om dc [Jisciplir riii-invslivii 
le lezen, Deze beval vele lips 
voor aanpassingen van bijv. 
Tasword II aan de Disciple. 
Verder listings van handige 



liniiiiiiiiiiiiaiiljes. "lips vour 
gebruik van Disciple met andere 
landapparaiuui. Printerdrivers 
voor de meest uiteenlopende 

De Disciple Nieuwsbrief is 

verknjgbaar bij: de Bron 
tijeiens de Sinclair bijeen- 
komst. Bij Data-Skip in Gouda. 
01 per Post bij de uilgever: 
Disciple Nieuwsbrief 
Peter Faas 
Ameland 43 B 
1506 ZV ZAANDAM 

Prijzen: zonder Disk of tape: 

/ 5.00 (afgehaald) of / 7,45 

(per post). 

Mel Disk of Tape: 

/ 7.50 (afgehaald) of / 9.95 

(per post). 



did § 



In deze les gaan we allerlei 
dinger! mel bits doen, bijvonr- 
beeld roteren en verse huiven. 
Om de werking van deze laalste 
instructies !e begrijpen kan 
een tekening erg nuttig zijn. 



Hen lujzondere instructie is 
RLA. Dii is een instructie van 
een enkele byte (RLA=#I7) 
die helzelfde uitvoert als 
RL A (=#CB #17). Evetiio doet 
RRA helzellde als RR A. Oil 
knn aanleiding geven tot 
yerwarrmg omdat SRA en SLA 



I | | zijn. De roteer en schuif- 

<-7M*321CK-* *->765*JaiO->c->* instructies kunnen worden 

L en m. rr ~ no. uugevoerd op A. B, C, D, E, 

" M M. L. <HL>. (IX+d) en (IY+d). 



Als we een bepaald nil van een 
register willen controleren 
knnnen we dal nalnurlijk met 
bchulp van een slukje machine- 
laal doen. Hel knn ecliter ook 

met BIT b,R. 

Daarbij ligt b lussen en 7' 
R is A, B, C. D, E, H. L, 
(HI.). (IX+d), (lY+df. 

Bijvoorbeeld: 

BIT 2, A ; lest bi! 2 van A. 

De Z flag wordt gezel over- 
.-enkomstig de inhoud van het 



(Roteer Links. Roteer Rechls) 
zijn elkaars tegengestelde. Ze 
schuiven eigenlijk negen bits 
(8 bits + carry-bit) 



In plaats van RRA kun je ook 
RRCA of de instructie SRA A 
gebrurken. 



Atle andere 



ulkc.1 ■ 



u schuif- 
igeveet 
gelijkaaidig. Dus RLC en 
RRC roteren 8 bits, waathij 
respeclievelijk bit 7 en bit 
worden gecopieerd naar de 
carry. SLA schuift de 8 bils 
naar links en voegt een toe 
op bit 0. SRA (Schuif Rechls 
Arithmetic))) schuift naar 



techts en ln'liiiud! het zevende 


RLD zowel als RRD rotere 


bit (het lekenbil). SRL 


4 bits (=1 digit) in een keer 


(Schuif Rechts Logisch) 




schuift naar rechts en plaatst 


Bijvoorbeeld: 


een op bit 7. De niet door 


A-I1F <HL)=I28 


alle assemblers (bv. GENS.1) 


geeft na RLD : 


gekende instruclie SLL schuift 


A-#12 (RL)=J8F 


naar links en plaatst een 1 op 




biljnvjik' II. In een andere 


Dit zijn twee instruclies die 


les licht ik toe hoe je de 


je zelden of nooit gebruikl. 


instructie SLL t6ch kunt 


Ze worden meeslal alleen b 


gebruiken. 


BCD-berekeuingen gebruik 



word) getesl op ?.ij n waarde 
beslaal ook de instructie 
SET. Deze zet een bepaald 
bit van een bepaald register 
op 1. SET b,R is de vorm, 
In plaats van SET knnnen we 
natuurlijk ook OR gebruiken. 

Itidien we kunnen 'setten', 
moeten we ook kunnen 
'resetted : RES b,R 
zet een bepaald bit van een 
register op 0. Dit [aatsle 
kunnen we ook doen met AND, 



Complimenten van de Z80 



Dan is er nog de instructie 
CPL (CoinPLementeer), Deze 
doet helzelfde als XOR #FF ■ 
ze maakt van iedere een 1 en 
vice versa. De instructie NEG 
fmaak NEGatief] doet 



helzelfde. Hel verschil tussen 
NEG en CPL is dal CPL geen 
vlaggen zet terwijl NEG (die 
cigenlijk LET A=255-A 
doet) wel vlaggen verzet. 
NEG word! zelden gebruikt, 
CPL daatenlegen vnj vaak. 

Voor de 



Een programma om te delec is 
een stuk lasliger. In les JO 
zal ik lalen lien dat je 
vermenigvuldigingcn, delingen, 

gemakkelijker nil kunt rekenen 
door gebruik le maken van de 
ROM c routines van de Spectrum, 



net wel handig als men de 
carryflag een bepaalde waarde 


Een uoa niet behandelde 
instructie is DAA (Decimal 


kan geven, Dil kan worden 


Adjust Accumulator, rekeri A 


gedaan met SCI' die de carry 


om in decimale nolalie). Dele 


flag op 1 let, en mei CCF, 


insiructie zet he! A register 




om in een BCD-getal, Deze 


d.w.z. omkeerl. 


insiructie kun je voorai goetl 



In tegenstelling tot de 6S000 
processor bezit de Z80 geen 
MUL en D1V (vermenigvuldig 
en deel) operator zodat we 
die zeif moeten program me ren. 
Als we met een vast getal 
moeten vermenigvuldigen, is 
het meestal era eenvoudig. 
_ Jtel A=28. Als ik dan SLA A 
"doe, is na afloop A=56. (Ga 
zelf na). Als ik ecliter SRL A 
doe geldt na afloop A=14, In 
plaats van SRA en SRI- kun 
je ook RLA en RRA gebruiken. 



CALL *1«01 ;Op«i hi 



htierbij moet naluurlijk we 




De routine op #1601 wordt 


vurdi-u Lipgelel dat A maximaal 


aehruikl om een kanaal te 


255/5-51 mag zijn, anders 
teriies je bits. 




openers en de routine op #0010 
wordt gebruiki om een teken af 
le dmkken. Mel behulp van 


;en eenvoudig programma 










subroutine voor het boven- 


volgende : 




staandi; prowamoia, die de 
score afdrukt. 


ORG 60000 







Bovenslaand programma 
vermenigvuldig! C met F- e 
de twee-byte-uilkomsl in I 



Zelf moet je natuurlijk de 
routine scpll nog even in het 
bovenstaande programma 
invoegen, Later zal ik nog 
apart op de RST #10 routine 
en de #1601 routine ingaan. 




G10Q0 



nnn 



S. BuwaEda. 
R.IIeringa, 

M.Poslma, Iluilenpost 

Oil prog.nmma ronakt 
van het scherm. 
van de kleui 
kleut wordl 
sti 3>[ie 1 ■ 



di( I 



rift s 



ibegrip 

fiuniatie. Elkc 
pen bepaald 
omgezet. In 



iidtaai 

van dit program m a, Hel heefl 
twee kleine nadelen : de 
afdruk is viij groot (17x16 cm 
op onze lasei printer) cii de 
verhoudiiik! I>i t'ville/lioogle 
klopt niel met die van hei 
scherm. Tocli is liel een 
aanrader, gewoon nindat de 
afdrukken zo mcioi zijn. 

Hel twee.de, korle proerniiitiu. 
dient otn de afdruk te maken. 
Een scherm word! in hel 
geheugen geladen, eii de afdruk 
gnat na.ir de printer. 
De LOAD en SAVE-commandc 



1 REM Shadecopy-mcod 
10 CLEAR 59999: LET a 
f-6e4 TO 60278 
20 READ d 



120 DATA 193,16,185, 12'., IB, 7, 14 5 rem voor en ai 

8,103.193,16,174.209,225,193 10 CLEAR 59999: LOAD *-b"! 

130 DATA 16,164,205,248,235,193 hsOPcapy-CODE 

.16,152,35,19,193,16,144,62 20 OPEN I3;"b n : REM Ev-ntL 

140 DATA 10,215,62,13 215 201 1 POKHAT "b';9600 of i«n der e 

,35,16,251,225,201,229.213 " 4o"DiM nS( 10) : INPUT "Nnon 

160 DATA 253,229,221,34,121,235 LINE nS 
,253,34,123,235,33,125,235,17 50 LOAD *"a' ; IjnSSCREENS 

170 DATA 125, 23B, 221, 33, 125, 241 60 RANDOMIZE DSR 6e4 
.253,33,125,244,1,0,3,197 

180 DATA 126,15,15,71 
15,15,176,71,221,126,0 

190 DATA 7,7,176,71,253,126,0,1 I 
76,221,229,253,229,221,42 ^ByvI F 1 -"--'' '' 

- 1,235,253,42,123, 

5,253,225,221,225,35,19,25 
DATA 35,253,35,193,11,120,1 & **•' 

230 DATA 3,0,1,2 " " 
3,29363 



>;fi 



C f 



T PLASH 1;AT 0, j "ERRORI - i BEEP 
1,-101 STOP 

40 SAVE "ahadecopy'CODK 6t>4,27 

50 DATA 62,3,205,1,22,33,224,8 
7,17,224,90,6,32,197 

60 DATA 6,2,197,205,228,234,6, 
4,197,229,213,6,3,197 

70 DATA 6,8,197,6,8,197,26,203 
,6,56,3,15,15,15 

80 DATA 230,7,135,135,229,33,7 
8,235,6,0,79,9,62,4 

90 DATA 255,229,126,167,33,125 
,235,237,75,119,235,237,74,119 

100 DATA 3,237,67,119,235,225,3 
5,241,61,32,231,225,37,193 

110 DATA 16,203,1,224,7,9,235,1 
,32,0,167,237,66,235 




Met programma is geschii:ven 
voor de 48K Spectrum, Een 

voor de 16 K. maakle het veel 
Ic langiaani. Jammer. 

Voor de Belgen : 

Belgen kunnen Listing 2 
invoeren. Je krijgt dan i.p.v 
de Nederiandse visg en het 
Wilhelmus. de Belgische vlag e 
de Brabancomie. Listing 2 is 
een vervanging voor de regel 
2680 tot en met 2780. 

Tip bij het inlypen 

Lege regels zoals regel 60 zijn 
gewoon regels met 1 spatie.du; 
60 <SPATIr!> 

Hulp bij bet spelen 






Omdat je als c 
speler uiet alle handen k.m 
onlhouden lal ik die hier e 
keer geveo. 



Basra per ura 





DRRUPO 

inze 

500 


■<ER 




© P.k, 




B . DOES 


1987 




K.«pit 


s 




♦ 




V 




+ 




V 




:| 






• 


I Kaa 


r 


..„ , 


• 


, t H„U 











ias7 * asa r 



: Din t(4,13Ji 



Eukele voorbeelden : 
FULL HOUSE : 2 koningen 



Als je het programma will 
saven. doe dan eersl 
RUN 9999 

SAVE "drawpoker" LINE 10. 

RUN 9999 wist alie varia- 
belen uit het gehetigen; dil 
scheelt lijd bij bet laden en 
ruinite op tape, cartridge of 
distant*; 

(P.v.d. DOES. R'daml_ 



j FLUSH Ol FHPER ' 



IINIUITLEG u. KflNJl dl DH d3-t 

llSilB-doS, I KLEUR" 860 LET i 



[NT fiT 17, E7; FLOSH 1; [N 

-□"i RETURN 

r p3-0: FOR U-3 TO 57 STE 



□ TO 1750 
1S6H BEn GE 



: LET x-O: LET p3-fl 



1610 GO TO 1530-i:o3'S0) 
1630 REn KIJKEN OF EH GEL 



ISGB GQ SUH 3 



S10 RESTORE 3110; 
GEB PRINT PAPER 5 



750 

73B RANDOMIZE : FOR a 
710 LEI FCa)-INT (CRN 
IF FCa)>t THEN GO TD 7 
7B0 LET b(al-INT CtRN 



■J LET p-135 355B REM BLS OE HAND EEN H 



LET rCKJ-p: NEXT « 
aaia REd UITZOEKEN OIHT 



3 BEEP HO bt ' ( 

THEN FOR H 
( BEEP .0 5930 



: STAR -SPANGLED BPNNE 



i "QEIilQNNEN : " 5B4S fi 



5B5B NEXT a 








PRINT AT 4.6 


306B FOR a- 




• 1F UCa)-ti(a* 


5 36B L 


ET^hl hi ol. F 








3B1B I 


F M-0 THEN EC 




































THEN LET x-x 






ena if »-s 


.;,":; 


ar TO 3430 


I. NEX 


T a. PRINT AT 


e'S if «-b 


-,'.-^ 


30 tc eisa 


3E53 


□ TO 560 


eise ie 1-1 


*T3 


30 TO 5178 


Is " 














eisa if o.a 


>blC 


THEN LET x-x 


1 XV^l 


no 



.1875,5, .B635.5. .55,-3 



.155,7, .155,9. .35 



3130 REN SPIRT CDQRDTN 

31 sa 



3310 IF x-4 BND u*1 THEN B 



t THEN GO TO 5350 



: REaO 0,p: BEEP d-5, 
>7BB DATA .36,3, .55.7 



1 TO 16 318B DOTH 153,65.36, 153, 153. 3B.B 
f INKEV 6,153; REM CHRI 141 ACHTERKANT 

319B OBTP IBS, 555, 555,355, 555. 15 

35Bb'dATA 3-4. 68,135.355.355,136, 
CKPS It?' KlMIOta,' 



331 B OPTO 
335B DSTB 



j i57f "-CHRI 1 
' "'CHRS 157- " " 



RECHTER BENEDENHO.EK 
64.61,64.64,64,35,31,0 
E 153 LINKER BENEOENHOE 



34SB LET uS-"FULL HDU5E": LET n 






5 155 LINKER STAANtlER 



.8: REH CHM IS 


9TER 






13B 


LISTING 2 










2680 CLS : PRINT : TOR 
: PRINT TAB 4; PAPER 


£s 


: to 


8) 


2690 PRINT TAB 1 


2[ PAPER 


6;bS 


T 


Q 8): NERT ■ 
2710 PLOT 31,168 
RAH 193,0: DRAW 


!!ss 


0,-105: D 
DRAW -193 



2720 PRINT AT 15,1; "Hat is je E o 
lukt.je kunt n..r B B l e ie ceru B 
keren." 

2730 PRIMT AT 18,l;-Tcrug in Bel 
B 1 B ben ] B zo B °l"l<ki s d»t 
]e uren na « > nl.li.d kun 

2735 PRIHT I0;AT l,7;"Nog een ke 

2740 

2750 REH LA BRABANCONNE 

2760 

2770 RESTORE 2780: FOR a-1 TO 14 

: READ d,p: BEEP d*1.45.p: IF IK 

KEYS--J" THEN RUN 

2775 NEXT o: PAUSE 25: FOR 8-1 T 

O 111 READ d,p: BEEP d*1.45,p; I 

F IHKEYS-"j h THEN RUN 

2777 NEXT a: PAUSE 100: GO TO 27 

70 

2780 DATA .0312,-5, .1875,-8, .062 

875,0, . 0*25,-1, .1875,0,-0625,4,. 



2785 DATA .1875,-1, .0625,0, .25,; 
|lo625!;>!.1875!o!.0625j-l,.75,0 




iOlI U L 



] LnJ 



Vai) een lexer die anouiem wil 


Tasword II, 128K 


Liiijven (wij kennen hem well 




krcgen we onderstaaude tips in 


Van R. Arends uil Arnhem 


veri).md met Masterfile en de 


kregen we deze aanpassing van 


!:RK Spectrum. IV be.lowline is 


de Tasword- regels die we in 


.liil in tolaal 70K aan Filcf; in 


nuinmer 6 van de gids 


RAMdisk worden ge/.et, wal 


publiceerden. Hij merkt op dat 


een boel lijd kan besparen hij 


door lie t ontbreken van regel 


saven en loaden van files. 


665 en hel niel wijzigen van 




regel 5030. mierodrive 9 niet 


lief eerste programmaatje zet 


gekozen zal worden. Met de 


je on een cartridge onder de 


door hem toegevoegde c.q. 


naani "run", mel LINE 1 als 


gewijzigde legels. gebeurl dit 


10 LOAD *"H" ; 1 ; "FILE1 ' DATA FS() 


665 IF b-100 THEN GO TO 5000 


20 SAVE 1 -FILE1- DATA FS{> 


5030 LET md-VAL a$l IF nxl<i OR 




d>9 THEN LET ud-1 


40 SAVE 1 -FLLE2- DATA FSO 




en zo verder voor alle files 
op de cartridge (totaal 70 K 


..♦..„„„„ .,..„.♦., 


kan er in het geheugen). Tol 




slot van het piogramma : 





Oni naderliand de files vai 
RAMdisk te knnnen laden 
zijn volgende wijzigingen 
nodig in hel program ma ; 



jehe 
" '6' 

op geel bewaard. 

Ondirisiaande regels moet je 
dan nog toevoegen. uiteraard 
in 128 K- mode : 

NS DATA 



F5() i 






t 1$ D 



Een belangrijk (eigenlijk 
in-erhndigl advies : vergeet 
niet de gewijzigde files 
ii;uk-i li.uii] ;iImu>£ up t;ntt idjie 
te saven ! De RAMdisk is 
vluchtig ! wanneer je de 
computer uilschakell, ben je 
de liele inhoud kwijt. 



gezorgd dat de Speclrums 128 K 
standaard geen uilgebreider 
n.nversalie mel een "grote" 
orinter knnnen voeren dan 
LPRINT "hallo- of LLIST. 

Printercodes (om een of ander 
lettertvpe in te slellen) 
worden door de RS232-code 
wirgeehaald. Wij hiidden al — - 

heslond (we welen ook niet 
alles 1). Peter Huyninck 
vertelde ons tijdens de 
HCC-dagen hoe hel kon, Hij 
had het gelezen in hel boek 



Oni de 

Spectrum en printer mogelijk 
le maken, doe je : 
rOKR 23349,39 en 
POKF. 23350,1. 
Daarna laal de Spectrum alle 
conttolceoik't rinse hi ikIltU dnm 
de printer. Om dit 



ingedaa 



laken |. 



listing at le drukkei 

doe je : 

POKE 23349,36. 

Simpel, maar atdrirad. 



CASSETTE- & BOEKENSERVICE VOOR LEZERS 






voor ,fL.59.00/11BOB 


Sincl«ir^iJ , fe5rfl 15,00/300 BF 

(L. 12.50 /250 BF. 

BASIS -Abonnees deie OL-Booken: 

fl. 10,0a /200 bf. 


voor tL.95,00/1900B 

Abonnees ( 1 . 85 , 00/1 7O0B 

Abonneei lL.Bi.00/l700B 

Writing SyHw. TOPPEB !! 
voor (L.B9,00/17S0B 


PAPIERROLLEN GP-50: 125NN BREED 

10 roll en inel. porto (L. 30,00 
Abomee 11. 37,50 
BASIS- AOonnee fl. 25,00 


ZX 81 SPECIALS: 


FIL0S0FT PP.0DUCTEN. 


•rwiltr voor 7KS1 16/64K- 

voor fl.25, 00/500 B 

BASIS) Abonneei U. Ml. 00/400 B 

HCO0ER vertaalt LM BASIC in 

voor Il.15.00/J00 B 

BASIS)Aboraiee; (1 . 10.00/200 B 


handleiding van 69 pegina's A4. 

EngeLie OPUS V<-rii*. . ,/ 79^00 


OL SPECIALS 


Nog >t«d S DE tek.tverwerker voor 


1 Hiioft DEVPAC OL 

voor (1.135. 00/2500 B 

AOonnee U. 110, 00/2200 H 

2 Mctaco-co QL-C 

voor 11. 379. 00/7580 B 

J Hslacojuco 0L Paical 

voor fl. 340,00/6980 B 

Mmnn fl .315.00/6300 B 


behoren Ml T»*word-2 oott op de 

F slag, invoeger, en uitlijnen. etc., 

Priji: Cassette,, ../ 59,00 

Engelse vertle / 59,00 











clair 0L nuffl. 15.00/300 BF 
r 0L nu:fl. 15,00/300 bf 



S 3.5" Engels / 7' 



(BASISJAbonnee: II .22. 50/450 BF 



7 &* n , 

;N»3:fl. 15,00/300 B 



'*< 



OPUS 3.5" (Engels) / 79,DO 













™ 



ieelgie>;0S2-)J7Z67 






uil exrsnsionpack, 
H Hoogeveon. Teh 05280-7 1582 



8022 M Zwotle. TeL; 038-516282. 



: Q75-161757 



u 












Ondar omalag 
a Is dnrtwerk 




□ 








>s^ 






•m 






z 


Sinclair 

aiaA 

Posibus 1 1 1 

5110 AC Baarle-Nassau 














Onder omslag 














Sinclair 

aiaA> 




Posibus 1 1 1 

51 10 AC Baarle-Nassau 


IS I a 


[kMld iln: CMgi.ete „ Eiaen T«l= lB .L B i«011-»»17 


Tel : (weekend) 05*73-557 (Freek) 1* nied **<■ 


01880-16767 


-T. J-!.] pT, sr\ jTst. |l uied aan: CJisk Interface / 150.- over de Spec 


EM mmn y£cc%&,£.&T' u ' ™«™ u 


oor Spectrin: Origi- 


%$£™£z£ , £&£r; % s^y™ 


V10U MMMlM r^^ringe",^:^'^ 00 J-J*"* ' 


erodHve™ SAQi''"^' 


337367 <na 20.0(H) Ik Died oan Spectrum 48K net Lo- f Cla _, B ! S * C ' 
rei in Nedrrland. Profile toelsenbord ; 5000 BF. ' , A ™ 


Tel.' 010-4ZU56 
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EEN ABONNEMENT IS VOORDELIGER 

Ik neem nu een abonnement op da SINCLAIR GIDS 
en ontvang 8 numm'ers voor ff. 44,00 



Slraat : _ 
Postcode: - 



?ntsgeld ovcrgemaakl op Giro 5)09074 inv. Sinclair Gids- 



IN/OUT 



Zoekl U icis. of heefl U ieis aan le 

bieden? 

Plaats dan een an nonce in de rubriek 

IN/OUT. 



IK ZOEK: 


8 















IK B/ED/MN: 


g ' 















Alleeti NIET-cotnnierctilc adverteniics warden geplaatst. 

Advertenties voor gekopieerde software oj er naar riekend worden 

geweigerd. 



trf«» 1 * ZX LprinU ' Joys 

itor « software (Disk en c»s 
; (BclgiS) 056-600240. 



35 128, Hue 



DATA-SKIP 
UW SINCLAIR-GIDS 




Data-Skip 

Oosthaven 58 

2801 PE Gouda 

01820-20581 



computercollectie 




